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MORE THAN FIFTY PROGRAMS 

By MICHAEL HOWARD 

So you want some more programs to key Into your Sega? Well, this book 
has over Fifty for you to tap out covering everything from games to 
education, machine code and basic, short and long, (all programs will 
run on a 16k or 32k cartridge). Pages of programs, each one dlsected 
and explanations of how and why It worksl 
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A plea for software listings — please check your software 
thoroughly for errors before sending it to us. Please update us 
on any errors you know about so that we can publish 
corrections. 
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EDITORIAL 

Weil, here we are again for another issue of the Sega mag, and 
what ar> issue it is! 1 would like to thank all those people who 
sent in programs to me to be placed inside these illustrious 
covers! I hope that you all keep it up, just remember, each time 
you send in a program the magazine is that bit closer to being 
published, so keep them flowing. 

One thing that you will find of interest is the way the market 
is changing, a few years ago you could sell any machine quite 
easily, today things are a lot more difficult mainly because 
people want their computers to do three things. (1) Teach them 
about computers, (2) Do work for them and (3) Play games, 
in that order! A while ago, games playing was at the top of the 
list. 

By the way, Sega Software Support are now taking over the 
magazine and the software for Sega. They're great people and 
you'll hear a lot more from them. 

So without further ado, any more waffle, no back chat, 
meaningless monologue, or dreadful dribble. . .on with the 
mag! 




Michael Howard 

PROGRAMMER & TECHNICAL SUPPORT 



LETTERS TO~| 



THE EDITOR 



DEAR EDITOR 

I have obtained a score of 999880 on Video Flipper and 
stopped to take a photo (enclosed) just to prove it, ! don't 
receive your magazines but when a friend has finished with 
them, he gives them to me. 
Andre Stokes. Huntly 

Great stuff Andre! Unfortunately the photos were 
unreproduceable in the mag. You really should get the mag 
because it makes up an important library of Sega information. 
This gives us a good idea ... for mag subscribers we will start, 
in the next issue, a SCOREBOARD of hi-scorcs for popular 
games. Send us your high scores and we'll publish the best! 
Note that the next issue is the start of the new subscription year 
so you'll need to act fast! 

DEAR EDITOR 

Do you have any programmers manuals for the Sega BASIC? 
Christopher Campbell, New Plymouth 
C. E. Fenwick, Christchurch 

This is a question that crops up constantly. The new catalogue 
from Sega Software Support has BASIC GAMES 
PROGRAMMING and other books which give a lot of help. 
Other than these books, the SEGA BASIC is virtually identical 
to Microsoft BASIC which has become an industry standard 
for the IBM PC and other business computers. Your local 
Whitcoulls Technical Books or University Bookshop will have 
books on Microsoft BASIC which you would find very helpful , 
In fact, one of the strengths of the Sega is the close 
compatability in its BASIC to business computers. 
We intend publishing a full manual for the SEGA BASIC within 
the next 6 months. 

DEAR EDITOR 

1 am interested in the LODE RUNNER cartridge. Is it still 

available? Can we expect any new titles? As a matter of 

interest, how are cartridges constructed and what advantages 

do they have over programs on disk? I assume they are mostly 

comprised of ROM. 

When attempting to SORT using Hucal, can you please clarify 

what should happen with Sorting Keys 2 and 3 {Manual p , 34) , 

I deleted my totals, experimented and found the results rather 

confusing, 

R. J. Thorpe, Napier 

Firstly, Lode Runner is unavailable as is Exerion, Safari Hunter 
and others. The only cartridges currently available are in the 
catalogue of Sega Software Support. However, don't give up 
hope. . .changes are afoot. 

Cartridges are constructed from ROM chips containing the 
games program and a small logic circuit to enable it to be read 
by the computer. Their advantages are that they are very easy 
to use, require no extra hardware, instantly load and, of 
course, have good copy protection. Their disadvantages have 
always been cost. If I had my way. I would have every good 




bit of software on cartridge but the cost would be exceptionally 

high. 

Can anyone out there using Hucal give us some help on his 

last question? 

DEAR EDITOR 

I visited your offices when I was in Auckland and discussed 
how services to Sega owners could be improved 
I have talked to several Sega owners and it is clear there is a 
need for the following: 

1. There is a criticism of the explanatory literature that goes 
with the computer and with the software. It does not provide 
sufficient data to understand what is happening, 

2. There is a need to reinstate the series "Unexplained Sega 
Commands" in the mag. 

3. What is happening to the magazine? 
Keith Hovell, Dunedin 

Dear Keith. I agree on all points. See my answer to one other 
letter here about Sega BASIC We will reinstate the series 
about Unexplained Sega Commands, 
As to the magazine, sec elsewhere in the mag as to what is 
happening. Thanks for the letter. Much appreciated. 

DEAR EDITOR 

We have only had 4 issues so far of the magazine. What has 

happened? 

Mrs McDonald, Auckland 

Dear Mrs McDonald, due to some problems that arose late last 
year, the magazine was held up for 5 months. A double issue 
was released recently and now this issue is in your hands — 
the May/June issue . . .a little later than expected. 
This is the last of the current subscription year. Sega Software 
Support will be handling both the Sega User Club and the 
magazine as well as software and hardware. Grandstand 
Computers will continue servicing all Sega equipment. Sega 
Software Support is immediately starting the production of the 
first magazine of the new subscription year (July/August) so 
that the magazines can be on time in future, 
(PS, Send in your subscriptions, programs and 
articles. . NOW!!) 

DEAR EDITOR 

1 am writing to complain that there are no outlets anywhere 
for Sega software or hardware. What has happened? 
R. Tennyson, Timaru 

That's right, few shops now stock Sega products. The only 
people who do are Sega Software Support, They operate ? 
mail order service throughout NZ. Ask for their free catalc 
c/- P.O. Box 10-207. Auckland 4. 



IMPORTANT ANNOUNCEMENT 



Bringing you up to date with the world of SEGA. 

As some Sega Users have found out already, Grandstand Computers have now passed the 
responsibility for Sega support over to Gienys Millington at Sega Software Support. She will be 
responsible for all software and hardware purchases and for the SEGA USER CLUB and Sega 
Computer, the official User Club magazine. Mike Howard and all the Sega geniuses at Grandstand 
are still behind us and you can be assured that the Club and Magazine will continue at its usual 
high standard. However, we will make some improvements due to popular demand and these are 
shown over the page. 

SEGA SOFTWARE SUPPORT is now responsible for all Sega enquiries apart from servicing 

equipment — these should still be made direct to Grandstand. 

You can reach us at P.O. Box 10-207, Auckland 4, or Phone (09) 603-274 during business hours 

only. 

This is the last magazine of the current Club subscription year and the next magazine [the 
July/ August issue) is the start of a new Club subscription year. The new subscription costs are below . 
Unfortunately. GST has to be charged! Not our fault — blame Mr Douglas. To receive the next 
magazine we must have your Club subscription as soon as possible!! Get your chequebooks out 
now!! (and pens of course). As current subscribers know, the savings they make on our special 
software and hardware offerings more than make up for the Club subscription cost. The retail price 
of the magazine alone is $6.95. 

Sega Software Support will supply you by mail order with masses of software and some 
hardware ... all excellent value! You are strongly advised to purchase before GST as this will raise 
the cost to you by at least 10%. Also, some of our stocks are limited. 

Subscriptions for the SEGA USER CLUB (which includes SEGA COMPUTER magazine) can be 

obtained by completing the Subscription Order Form. Note that the retail price of the magazine 

is $6.95 per issue. 

The annual club subscription is $37.00 plus GST. 

Subs received before August 31: $3.09 GST. 

Subs received after August 31: $3.70 GST. 

Note: This assumes GST is 10% . If the GST rate alters we reserve the right to amend these charges. 
Australian Subscribers: Surface Mail $46.00 Airmail $50.00 

FREE GIFT FOR SUBSCRIBERS - SEE OPPOSITE PAGE 

Contributions from all you Sega users for your magazine are always gratefully accepted. Program 
listings etc., where possible please. Keep them rolling in! 

Do you know of someone who has a Sega and isn't on our mailing list? Send us their name and 
address. They'll thank you for it. 

Because we know our quality of service and support we offer we will give you our guarantee — 
your subscription will be refunded on a pro rata basis if you are not 100% satisfied with the Club. 



Regards 





Gienys Millington 
Manager 



NEXT ISSUE NEXT ISSUE NEXT ISSUE 

Due out at the end of August 
Copy deadline; in our hands by 12 August!!! 

Some of the changes for the next issue are: 

1. A Buy/Sell Column 

We are going to introduce a BUY/SELL Column for Hardware and user-written 
Software. Just send us: 

* Your name, address and phone number. 

* a few lines of advertising copy. 

* $4,00 per insertion. Cash or cheque must be enclosed. 

We reserve the right to edit or reject any advertisement. We obviously cannot accept 
responsibility for goods or services purchased from these advertisements. 

2. An Australian column or page 

We now have a number of contacts across the Tasman, many of whom get our 
magazine. Any Australian Sega user can just send us their material and we will take 
it from there. 

3. We now take Bankcard or Visa payments. 

4. An updated Local User Group list. 

Many of the local user groups have fallen by the wayside over the past year due to 
changes of people and other vagaries. If you would like to be the User Group 
contact in your area, please send us your name, area and phone number and we 
will publish it for you. Others in your area can contact you and between yourselves 
arrange suitable times and places. 



July 1986 — June 1987 Sega User Club Subscription 
(includes Sega Computer Mag£izine) 

Please send me in my FREE GIFT of COMPUTERS DONT BYTE as 1 am not 

charging my sub, to a Credit Card and the date is before August 25. 

Name; 

Address: : 

New Member I I Renewal Member 1 I (tick one) 

Payment Enclosed: $37,00 + $3,09 GST (Total $40.09} 

Cash/Cheque/Visa/Bankcard (circle one) 

Cheques payable to Sega Software Support, PO Box 10-207, Auckland 4, N.Z. 



Credit Card Number: 
Expiry Date: / / 



Signed:. 



Free Gift to Subscribers... 









^ > 
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the Sbun ^^^^ 

Before 25th 
August 1986 



COMPUTERS DONT BYTE - 
A gift for children and adults alike. 

The computer revolution is here and affecting you and your children. After 

all, that's why you bought your Sega computer. This book delightfully and 

amusingly fills in the detail of the march of the revolution step by step. The 

history and development of computers and their languages, how 

computers are being used in education, business and society and where 

the future is going — it's alt here in Computers Don't Byte. 

Written simply and in plain language this book will appeal to new computer 

owners as well those advanced in computing skills. 

Mary Matthew has been explaining computers for many years and the text 

is accompanied by delightful cartoons by Rita Parkinson. 

This is a book for the whole family and is widely used in schools throughout 

the country. Now is your chance to get a copy for yourself — FREE. 



Some more FORTH notes . . . Michael Howard 



My FORTH emulator program created a lot of interest from ardent readers. It's nice to see people realising that there is more 
to computers than just BASIC and games! 

Firstly, here is a program written by Grant Emms. The program is written entirely in FORTH, and is called Lunar Lander. 
Remember, as with all FORTH programs, beware of spaces, and make sure you put them in the right places. 

Ll.iNAR TITLE SET MftIN : 

MAIN Ft^INT FUZ? SFtC HIEC LAND? MAIN ; 

SET 100 200 RAND 6 8 RAND 100 5 ; 

PRINT CR .' Fuel : ' 2 PICK , CR .' Height : ' A PICK . CR .' Speed: " 
DUP . CR .' Gravity: ' 3 PICK . ; 

: FUZ? 2 PICK <> IF INFi.tEL FLI? SUBF TFEN ; 

: INFi.JEL CR ," Fuel to use? ' KEY 48 - ABS DUP DUP . 10 > IF INFUEL 
THEN DUP ; 

FLI? 4 PICK > IF DROP 2 PICK THEN ; 

Sl.BF 2 ROLLER DUP 6 ROLL ROT - SWAP 1 ROLLER ; 

SPEC 2* - 3 PICK + ; 

ROLLER DO 5 ROLL SWAP LOOP ; 

HIEC 4 ROLL 2 PICK - 3 ROLLER DROP ; 

LAND? 4 PICK 1 < IF LANDING THEN ; 

LANDING DUP 5 < IF CR .' We have Touchdown! ' THEN CRASH? ; 

TITLE 12 EMIT CFt .' <<Lunar Lander >> ' CR ; 

CRASH? DUP 5 5- IF CR .' We have a bit of a crater! ' THEN ABORT ; 

I haven't had time to test this program out, but Grant tells me it works! To run the program just type in LUNAR, when you 
have finished typing in the program. 

Other interesting remarks that Grant came up with include a way of speeding up the program. In FORTH you are forever 
PUSH'ing and POP'ing. so Grant sped up this bit by using Machine Code, here is that code: 

10 E=0 

20 X=aHF000PESTGRE 50 
30 READ A$:IF At='tND" THEN 60 
40 POKE X,VAL("&H"+A$):X+X+1 eOTD 30 

50 DATA ED ,56 ,64,81 ,13.13,21 ,00f A,01 ,08,0O,ED,B0,l 1 ,00fA,01 ,38,00^0 JB0,C9, END 
60 X=&HF100f;ESTDRE 90 
7^0 READ Ai:IF A$='tND" THEN 2S0 
S0 POKE X,VAL("&H"+A*);X = X + 1 SOTO 70 

90 DATA I 1 /^7,FA,21 ,9F f A ,06,1 4,C5,00 ,00,01 ,08,00 ^0^8 ,C1 ,10f 5,54,5D,2A,64, 
SI ,23^3,13,01 ,08 ,00 ,ED ^0 ,C9 ,END 

And alter lines 365 and 370 to. 

365 FOR Q=l TO 4:CALL ?^HF000:A(Q)=E;NEXT f OR Q=4 TO 1 STEP -1 £=A(Q) iCALL 

&HF000:NEXT 

370 FOR Q=l TO 4fRINT TAP.(8) ^3;".,";A(Q) tJEXT fiOTO 410 

Apparently a bug got into the program, line 1220 should also check for e%="<> " as well .... SORRY! 
Insert OR e$ " <> " into the line. 

Well that wraps up this bit on FORTH, I hope that people send in more modifications to me and well end up with a really 
greal program. Don't forget that I will be more than happy to receive your FORTH programs 



WAKI by Norman A. Raynel 



This is an old African native game that has been played for hundreds of years. You can play against the computer or against 
a friend. There are 12 piles of stones (6 are yours and 6 are your opponents) . Each pile has 4 stones at the start but this will 
vary as the game progresses. The object of the game is to select a pile of stones, pick them up and then one at a time drop 
them off around the other piles of stones in an anticlockwise direction. The computer will do this for you, all you have to do 
is select which pile of stones. If your last stone dropped on your opponents side and it makes a total of 2 or 3 in that pile then 
you capture all those stones and these will be transferred to your score. In addition, if the next pile of any consecutive pile in 
a clockwise direction has 2 or 3 stones in them then you will also capture those stones and they will be transfened to your score. 
The first player to gain 24 stones is the winner. If during the course of the game one player has no stones left then his opponent 
has to select a move that will give at least one stone. 

Sounds complicated? It's not really, once you get used to it. 

5 SCREEN I ,1:CLS 

10 PRINT " WAR! by Norman Raynel" 
20 PRINT: PRINT : PRINT 

30 PRINT"Welcome to the game of WARI." 

40 PRINT "Thi s i s a very old native game that has been played for hundreds o-f ye 
ars. ■■ 

50 PRINT "In this game you have 6 piles o-f stones. Each pile has 4 stones at the 
start but this will change as the game progresses. " 

55 PRINT "You can play against another human or against the computer . Either way 
you vsii 1 1 be PLAYER 2 on the red portion of the screen- " 

56 INPUT "Press CR to continue" ;D* 

57 IF D*=CHR*(32) THEN CONT 

6C' PRINT "To pi ay you must pick up al 1 the stones from one pile of stones on you 
r side and drop them off one at a time around the screen anti —clockwise. " 
65 PRINT "The computer will do this for you, all you have to do is select the pil 
e number ,1 to 6 for player 2 and 7 to 12 for player 1 " 

70 PRINT "The object of the game i s to drop your 1 ast stone on your opponents si 
de so that you make that pile 2 or 3 stones." 

75 PRINT " If you do then you wi 1 1 capture al 1 those stones pi us any con^ecuti ve 
piles clockwise around your opponents side that has 2 or 3 stones." 
80 PRINT "The first player to capture 24 stones wins the game- If your Opponent 
has no stones on his side you must give him some on your next move." 
85 PRINT "If you make a wrong move the computer will tell you that it is ILLEGAL 
and you will be pertalised one turn." 

90 INPUT "Press CR to continue";D* 

91 IF D*=CHRf (32) THEN CONT 
100 REM "WARI" 

110 J=1:K=1:Q=14:P=13:F=50:D=12 
120 DIM T(D) ,Y(Q> ,W(Q) ,V(6) ,E(6> ,B(D> 

130 ZB-RND( 1> : ZB=ZB/Q: ZA=. 25+ZB: ZB=.25-ZB:G0SUB 7B0 

140 FOR J=l TO D:B(J)-4:NEXT : B (P) =0: B CQ) =0 : MN=0: GOSUB 1 100: SOSUB 910 
150 SCREEN 2,2iG0SUB 1060:PRINT "WHO WANTS TO PLAY? PRESS C FOR COMPUTER, H FOR 
HUMAN" ; G*= I NKE Y# 
160 IF INKEY*^"" THEN 1.60 
170 IF INK,EYt="H" THEN 1190 
180 IF INKEYi-"C" THEN 190 

190 6QSUB 1060:FRINT "DO YOU WANT TO GO FIRST? Y/N " 
200 IFINKEY*=^""THEN 200 
210 IF INKEYf-"Y"THEN 290 

220 GOSUB 1060:B0SUB 1070;PRINT "THINKING" ;: GOSUB 560 
230 IF M<1 THEN 1240 

240 GOSUB 1070: BEEF: PRINT "MY MOVE IS ";M 
250 FOR J=l TO G:T(J)-B(J) :NEXT : GDSUB 400 
260 FOR J=l TO D:B(J) -T{J) :NEXT : GOSUB 910 
270 IF B(D> ::24 THEN 290 

280 GOSUB 1070: PR I NT "I W IN ' " ; D^T : GOTO 820 
290 GOSUB 1060:BEEP:PRINT "YOUR MOVE? ";:R*=INKEY* 
300 IF INKEYf^"" THEN .300 
310 Rf=INKEY*:PRINT R* 

320 M^INT (VAL<RS) ) : IF M>6DRM<1 THEN GOSUB 390 
330 FOR J=l TO Q:T(J)=B(J) :NEXT 
340 GOSUB 400: IF M .0 THEN GOSUB 390 ' 
350 FOR J = i TO Q:Ei(J)^T(J> :NEXT 
360 i1N=MN+l: GOSUB 910 
370 IF B(P> ::24 THEN 220 
:80 GOSUB 1070: BEEP2:PRINT "YOU W IN ' " ; Df : GOTO 820 



390 BOSUB lO60:PRINT TABdS);" ILLEGAL " ; : FOR J=l TO iOOO:NEXT :M=OiRETURN 

400 IF TtM)-0 THEN M=-1:RETURN 

410 Rt="H":lF f^>6 THEN R:|^="C" : GOTO 430 

420 FDR .J = l TO Q: Y < J ) =T ( J ) : NEXT : GOTO 450 

430 FOR J=l TO 6: Y(J)=T(J+6) :Y(J+6)=T(J) : NEXT 

440 Y,(P>=T(G) : Y(Q)=T<P) : M=-M-4b 

450 C=MiN=Y<C) :FOR J=l TO N5C=C+1 

460 IF C^P THEN C=i 

470 IF C=M THEN C=C+l:eOTO 460 

480 Y(C)=Y<C)+1:NEXT : Y(M)=0:L=C 

490 IF L<70RY(L) >30RY(L)<2 THEN 510 

500 Y(P)=Y<P)+Y(L) : Y<L)=0:L=L-1:60T0 490 

510 S=0:FOR J=7 TO D: S=S+Y < J > : NEXT 

520 IF S=0 THEN t-1--2: RETURN 

530 IF R*-"H" THEN FOR J=l TO Q: T < J ) =Y ( J ) : NEXT : RETURN 

540 FOR J=l TO 6:T<J) =Y(J+6> :T (J+6) =Y(J> :NEXT 

550 T(D)=Y(P> :T(P)=Y(Q) :RETURN 

560 FOR A=l TO 6:M=A+6:IF B(M)=0 THEN E<A)=-F:GOTO 750 

570 FOR J=i TO Q:T(J)=B(J) :NEXT : GOSUB 400 

580 IF M<0 THEN E<A)=-F:60TG 750 

590 IF T<Q)>23 THEN M=A+6:RETURN 

600 GOTO 650 

610 FOR J=l TO Q:W(J)=T(J) :NEXT : FOR K=l TO 6 

620 IF T<K)-0 THEN V(K)-F:BOT0 730 

630 FOR J=l TO Q:T <J)=W(J) -.NEXT :h=K:6aSUB 400 

640 IF M':0 THEN V<K)=F:60Ta 730 

650 FA=O:FB=.05:FC=O:FD=O:FOR J=7 TO D 

660 FB=FB+T(J) : IF T(J)>0 THEN FA=FA+1 

670 IF T(J)<3 THEN FC=FC+1 

680 IF T(J)>FD THEN FD=T(J) 

690 NEXT :FE=FB:FOR 3=1 TO 6 : FE=FE+T ( J ) : NEXT 

700 FA^FA/6:FD-l-FD/FB:FC=l-FC/6:FB=FB/FE 

710 V(K)^ZA*(FA+FB>+ZB*(FC+FD)+T(D)+B(P)-BCQJ-T<P) 

720 E(A)=V(K) :GaTO 750 

730 NEXT :E<A)=F:FOR J = l TO 6: IF VCJXEtA) THEN E(A)=V<J) 

740 NEXT 

750 PRINT ",";:NEXT : M=0: FA=~F : FOR J=l TO 6 

760 IF(E<J)::FA) THEN FA^E ( J ) : M-J+6 

770 NEXT : RETURN 

780 A*="-":FOR J=l TO 23; A*=At+"-" : NEXT 

790 C*=CHR*<95) :FOR J=-l TO 23: C*=C*+CHR* (95) : NEXT 

8O0 D*=CHR*{8) :FQR J=l TO 5: D*=D* + D*; NEXT 

810 RETURN 

820 PRINT "GOOD SAME I " 

830 BEEP: PRINT "WANT TO PLAY AGAIN'^ Y/N" : RS:=INKEY* 

840 IF INKEY*="" THEN 840 

850 IF INKEYt="Y" THEN 130 

860 IF INK'EY*="N" THEN 890 

870 R*=LEFT* CR*,1) : IF R*="Y" THEN 130 

880 IF R*;>"N" THEN 830 

890 SCREEN 1 , 1 : CLS: PRI NT "SEE YOU LATER" 

900 PRINT :END 

910 CURSORl ,60 

920 FOR J^O TO 5:PRINT TAB (4*J+ 1 ) ; CHR:* < B> ; CHR* <8) ; CHR* (8) ; 

930 NEXT . . 

940 CURSOR 1,60 

950 FOR J=0 TO 5:PRINT TAB (4*J-t-l ) ; B ( 12-a ) ; : IF B(12-J)=0 THEN BOSUB 1090 

960 NEXT :CURS0R160,60:PRINT CHR:t {8) ; CHR* (8 ) ; CHR* (8) ; CHRJ (8) ; CHR* (8) ; CHR* (8) ; CHR 

»(8) ;CHR*(8) ;CHR*<8) ; CHR* (B) ;CHR*(8) ;CHR*(8) ;CHR*£a) ;CHR*(a) ; 

970 CURSaR160,60:PRINT "PLAYER 1: "jBCD) 

980 CURSORl ,85: FDR J=0 TO 5 

990 PRINT TAB(4*J+1> ;CHR* C8> ;CHR*(8) ;CHR^<8> ; 

1000 NEXT 

1010 CURSOR 1 ,85 

1O20 FDR J=0 TO 5:PRINT TAB (4*J+ 1 > ; B ( J+1 ) ; : IF B(J+1)=0 THEN GOSUB 1090 

1030 NEXT: CURSOR 185 ,85: PRINT CHR*(8> ;CHRi^(8> ;CHRf (8) ;CHR*(S) ;CHR*(8) ;CHR*(B> ; CH 

R*(8) ;CHR*(8) ;CHR*<8) ;CHR*(8) ; 

1040 CURSOR 160, 35: PR I NT "PLAYER 2: ";B(P) 

1050 RETURN 

1060 CURSORS, 140: PRINT CHR4 (5> : CURSORS , 1 40: RETURN 

1070 CURSORS, 160:PRINT CHR* <5J : CURSORS , 160: RETURN 

1080 SCREEN 1 , 1 : CLS: CUR3QR4, 20: RETURN 

8 



1 0'^O PR 1 nT uHR* ■; 8 i ; i Rt "1 lIKIs 

llOO SCREEN 2,2:CLS:C0L0R1,11, (O, 10) - (255.75) ,4: COLOR 1,9, (O , 75 ) - (255 , 125) ,4: COLD 

Rl,15, <0.'125)-(255,175) ,4: PRINT TAB (16) ; "WARI" 

1110 PRINT TAB(i6>;" " 

1120 PRINT : PRINT TAB (8) ; "PLAYER 1": PRINT 

1130 FOR J=0 TO 5;PRINT TAB (4*J+1 >; 12-J ;: NEXT 

1140 PRINT TAB(30) ; "CAPTURED":PRINT C*; TAB (30) ; LEFT* tA*,8) 

1150 PRINT sPRINT :PRINT :PRINT :PRINT :PRINT C*:PRINT 

1160 FOR J=0 TO 5:PRINT TAB ( 4*J-t-l) ; J+ 1 ;: NEXT 

1170 PRINT :PR1NT :PRINT TAB (8> ; "PLAYER 2 " 

1180 PRINT :RErURN 

1190 eoSUB lO60:SCREEN 1 , 1 : CLS: BEEP: PRINT "WHAT ARE YOUR NAMES':"' ;: INPUT "YOUR N 

AME?";H1*; INHUl "PLAYER 2s NAME?";H2* 

1200 GOSUBlOBOsPRlNT HI*; : BEEP: INPUT " DO YOU WANT 

eOSUB 10aO:R*=LEFT*(R*, 1) : IF R*="Y" THEN 1270 

IF R*<>"N" THEN 1200 



1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1291 
130O 
1310 
1312 
1313 
1320 
1321 
1322 
1330 
1340 
1350 
1360 
1370 
1380 
1381 
1390 
1400 



TO 60 FIRST? Y/N";R* 



"NO LEGAL MOVES. 
"GAME IS A DRAW. 



THEN GOSUB 390 



;90 



GOTO 1330 

BEEP: PR I NT 

BEEP: PRINT 

GOTO 830 

SCREEN 2,2:G0SUB 1060: BEEP: PRINT H1*;:PRINT 

IF INKEY*-"" THEN 1230 

Rt=INKEY* 

PRINT R* 

M=1NT (VAL(R*) ) : IF M>6DRM<1 

FDR J=l TO Q:T(J)=B<J) :NEXT 

GOBUB 400: IF MiO THEN GQSUB 

FOR J=l TO Q:B(J) =T CJ> iNEXT 

MN=MN+1: GOSUB 910 

IF B(P)<24 THEN 1330 

GOSUB 1070:BEEP:PRINT "YOU WIN! 

SCREEN 2,2:G0SUB 1060: BEEP: PRINT 

M=INT<VAL(Zf ) > : IF M>120RM<7 THEN 

FDR J=l TO Q:T(J)=B(J):NEXT 

GOSUB 400: IF M<0 THEN GOSUB 390 

FOR J=l TO D:B(J)=T(a) :NEXT 

MN=MN+1: GOSUB 910 

IF B(D)<24 THEN 1270 

GOTO 1322 

GOSUB i^lO: PRINT K*; : K1*=K*: GOSUB 
) ) :Z*=MID*(STR*(Z) ,2) : RETURN 
1410 K*=INKEY*:IF K*=-" THEN 1410 
1420 RETURN 
1430 FOR 1=1 TO 30: NEXT : RETURN 



YOUR MOVE?": :R*=INKEY* 



; :GOTa 820 
H2*; : PRINT 
GOSUB 390 



YOUR MOVE?"; : GOSUB 1400 



1430:G0SUB 1410:PRINT K*: Z=INT (VAL CK1*+K* 



STOP PRESS 

JUST ARRIVED 

SPEECH PROCESSOR UNIT FOR 
THE SEGA 3000 $235 

includes cable, disk, software and instructions. 
It's simply brilliant. Amaze your friends. 



SEGA SOFTWARE SUPPORT 

P.O. BOX 10-207 

AUCKLAND, 4, N.Z. 



How to get HuCal to work with a Printer 



Some people, those lucky to have HuCal. an SF-7000 and a Centronics printer have been having problems with the machine 
not printing out data properi;;. So here is a little program, that when run will alter your disc so that it will work with a printer. 

To use it, just enter the program, run it, place your offending disc in the drive and follow the instructions. 

I'd like to thank Mr Harold Webber for sending the program to me. 

If anyone knows how to get SegaBase working with a printer then please send a copy of the program to us. 

10 CLS:E=0 : CONSOLE ,,,,2 

20 PRINT " HuCAL PATCH PROGRAM" 

25 PRINT " by trevor Yann" 

27 PRINT 

30 PRINT "This program will alter a disk" 

40 PRINT "containing HuCAL so that" 

50 PRINT "any printer can be connected to the cent r on i cs port" 

BO PRINT" INSERT HuCAL SYSTEM DISK AND" 

90 PRINT "PRESS <CR>. " 

100 T»=">":C=10 

110 A«=INKEY« 

120 IF A»=CHR»(13) THEN 170 

130 IF E=l THEN IF A*<>"" THEN PRINT CHR»<8):END 

140 C=C+1:IF C<5 THEN HO 

150 PRINT T»;:C=0:IF T»="«" THEN T*=CHR» (B) :GOTO 110 

lAO T«="«":GQTO 110 

170 PRINT CHR»(a) ; :BEEP 

180 TR=0:SC=1 

190 DSKI* TR,SC;A*(0),0,128;A»(1), 12B, 128 

200 IF LEFTt{A»(0) , 1BK>"SYS: HuCAL SC-3000" THEN BEEP2: PRINT : PRINT "THIS IS NO 

T A HuCAL SYSTEM DISK. ": PRINT : GOTO 80 

210 PRINT rPRINT "Updating disk" 

220 TR=0:SC=12 

230 DSKI* TR,SC;A«<0> ,0, 128;A*(1) , 128, 128 

240 BT=t<HA3 

250 NW»=CHR»(&H0D>+CHR*(&H28)+CHR*(&H05>+CHR*(&HFE)+CHR«(&HOA)+CHR»(8(HC2)+CHR*(& 

HBB ) +CHR» ( 4tH0A > +CHR* ( &H3E ) +CHR* ( fcHOA ) 

260 NW*=NW»+CHRt ( ScHCD ) +CHR* ( &HCD ) +CHR» ( &H0 A ) +CHR* ( &H3E ) +CHR* ( StHOD ) +CHR» < &HCD > +CH 

R»(SiHCD)+CHR«<&H0A)+CHR*(«<HC3>+CHR*(«<HDB)+CHR»t8<HOA) 

270 LN=LEN<NW*) 

280 A*<INT(BT/128) > =LEFT* (A» ( INT <BT/128> ) ,BTM0D128> +NW»+RIGHT« ( A* ( INT (BT/12B) ) , 1 

2B-BTM0D128-LN) 

290 DSKO« TR,SC;A*<0) ,0, 12B;A*(1) , 128, 128 

300 BEEP:E=1 

310 PRINT "DISK UPDATED" : PRINT 

320 PRINT "PRESS <cr> TO UPDATE ANOTHER DISK,", 

330 PR I NT "OR ANY OTHER KEY TO END PROGRAM" 

340 GOTO 100 



DISK DRIVE UNITS SF-7000 

A few now available. $550 + $6.50 postage and handling. 

SEGA SOFTWARE SUPPORT, P.O. BOX 10-207, AUCKLAND, 4, N.Z. 
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The Fish Tank by the lumer Brothers 



Pm not going to tell you what this program docs, just run it and find out for yourself! 
Its a nice little graphics demo. 

10 SCREEN 2,Z:CL5 

20 CIRCLE( 125,95) , 16, i , .5,.6,.41 

21 CIRCLE< 95,95) , 16,1, .8, .82, .95 

22 CIRCLEC 95,95) ,16, 1,-8, .05,. IB 

23 CIRCLe< 90,95) , 16,1,1 ,.85,-15 

24 CIRCLE(133,93) , 2,1,1 ,1 ,1,B 

25 CIRCLE<i32,95) ,5,i,2,.4 ,.6 

26 CIRCLE (122,95) , 10 , 1 , 1 . 5 , . 75 , . 9 

27 CIRCLE(il7,95) , 8 , 1 , 2 , . 81 , . 92 

28 CIRCLEC122,95) ,12,1,1 ,. 12,.25 

29 CIRC1-E<112, 100) ,12, 1,1, .05, . 1 

30 CIRCLE(145,90 ), 2, 4, 1,1,1 

31 CIRCLE (145,80 ), 3, 4, 1,1,1 

32 CIRCLE (145,65 >, 5, 4, 1,1,1 

40 LINE(1,1)-(254,190> , 1 ,B 

41 LINEC5,5)-(249, 185) , 1,B 

42 LINE(15, 15)-(239,i75) ,1,B 

43 PAINT(6,6) ,15 

4^ LINECl , 1 ) -(254, 190> , 1 ,B 

45 Y=168 

46 FOR 1^1610238 

47 LET A=INT(RND(1)*3) 

48 IF A=1THENY-Y-1: 1FY:166THENY=Y+2 

49 IF A^2THENY^Y+1: IFY;; = 174THENY = Y-2 

50 LIWEd , 175) -( I ,Y> , iO 

51 NEXT I 

59 Y^16B 

60 FOR I = 16T0238STEP 2: IFK38 THEN A=2:GQTD 62 

61 LET A^INT lRND{ 1)*3> 

62 IF A=lTHENY = Y-3: IFY<116THE[MY=Y+3 

63 IF A-^2THENY=^¥ + 3: IFY>^169THENY-Y-3 

64 LINEd , 170)-(I ,Y) ,2 

65 NEXT I 

66 LINE (25, 14) - (25,155) , 15 
70 LINE (30, 14) -(30, 155) ,15 

80 CIRCLE (27, 160), 7 , 4 , 1 , 1 , 1 , BF 

90 FOR A=1T0 70 

100 LETX=INT(RND(1)*25>+16:LET Y=INT (RND ( 1 ) » 139) +1 6 

110 PSET (X,Y) , 15 

120 NEXT A 

130 LINE (230,1B)-(230,90) ,15 

140 LINE (225,18) "(Z^5,VO) ,15 

150 LINE (225,90)-<227,95 ) , 15 

160 LINE (230,90) -(228,95 ) , 15 

170 CIRCLE (227 , 97 ) , 2 , 9 , 1 , 1 , 1 , BF 

180 LINE (225,ia)-(227, 16) ,15 

190 LINE (230,ie>-(22B,16) , 15 

200 LINE (16 ,18) -(236, 18) ,4 

205 PATTERNSftO, ■'■^040404040404040" 

210 ttAGO 

211 S-O 

215 FOR I=S5Ta55STEP-5:SPRITES, (227,1) ,0,6:S=S+1:NEXT I 

1 COLOR,/, (0,0) -(255, 191) 
*40 60TQ 240 



i-: 



A plea. If you write to us, make sure you include your name and 
address. . . please. . .please. 
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Code Breaker 



by Rod Cuckow 



This is a simulation of the famous Mastermind game. Luckily, the instructions are in the game. 
1 REM CODE BREAKER 



10 

20 

30 

40 

50 

60 

70 

80 

90 SCREEN 2,2 

100 GDSUB 1S90 

FOR DE=1 TO 

SOUND O 



CLSiCOLORl ,14 

SCREEN 2,1:CLS:C0L0R 4, 14,, 14 
CURSOR 100,40:PRINT CHR* ( 17) ; "SEBft" 
CURSOR 55,55: PRINT "CODE BREAKER" 
CURSOR 120,80:FRINT CHR* (1 ^ ) ; "by" 
PRINT :PRINT : COLOR 6:PRINT CHR*<17); 
PRINT " d ROD CUCKOW " 
PRINT •■ d" 



d" 



110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3O0 
310 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
faOU 
605 
610 
620 
630 
640 
650 



100: NEXT 



INSTRUCTIONS? (Y/N) " 
1:60TQ 310 



is to" 



SCREEN 1,1 

CURSOR 3, 10: PRINT "DO YOU NEED 

K*=INKEY*:IF Kf="N" THEN COLOR 

IF K*="Y" THEN COLOR 1 : GOTO 180 

C=INT(ftND(l)*13) iCOLQR C:GOTQ 140 

CLS:CURSOR 3,2:PRINT "The object of the game 

PRINT TAB(5);"try and work out the code" 

PRINT TAB(5);"q+ -four colours and blanks" 

PRINT TAB (2> ; "hi dden behind tlie question marks 

PRINT TAB(2) ; "There are a total oi six colours 

PRINT TAB{13) ; "plus blanks." 

PRINT TAB C5); "The results of each try are" 

PRINT rAB(7> ; "^hown by black and white" 

PRINT TAB(5) ; ''peg^: BLACK = right colour" 

PRINT TAB(5) ; "wr ong place, UHITE = right" 

PRINT TAB(9) ; "colour right place" 

PRINT rPRINT TAB (9); "YOU HAVE TEN TRIES" 

FDR DE=1 TO 1000: NEXT 

CURSOR 3,16:PRINT "PRESS 



K4=INKEY*:IF K^O"" THEN 
IF K*="2" THEN BEEP: GOTO 
IF K*="3" THEN BEEP : GOTO 
THEN BEEP: GOTO 



ANY KEY TO START" 

BEEP: GOTO 400 

500 

530 

550 



IF K*="4" 

GOTO 350 

GOSUB 740 

C(l >=R 

GOSUB 740 

C(2)=R: IF 

GOSUB 740 

C ( 3 ) =R : I F 

GOSUB 740 

C(4>=R: IF 

FOR I^I TO 

GOTO 750 

FOR I-l TO 4; GOSUB 

C(I>=R:NEXT 

GOTO 480 

FOR 1 = 1 TO ^:R-INT (RND(1)*7+1) :Ca)=R:NEXT 

GOTO 480 

CLS:FOR 1=1 TO 4 

CURSOR 3, 10: PR INT 



C(2)=C(1> THEN 420 

CC3>=C(1)0RC(3)=C(2) THEN 440 

C ( 4 ) =C ( 3 ) ORC ( 4 ) =C ( 2 ) DRC ( 4 ) =C ( 1 ) 
4:E(I>=C(I) :NEXT 



740 



THEN 460 



PRINT 

PR INI 
PR I NT 
kR Tn I 
PRINT 
PRINT 
PRINT 
K*=INKEV* 
IF K*="G" 
IF K«-"B" 



TAB(9> 
TAB (9. 
TAB(9> 

TAB<9> 

TAB (9) 

TAB(9> 

IF 



"ENTER FOUR 
"(R> +Dr RED" 
"(G) -for GREEN" 
"<B) -for BLUE" 
■■ I. 1 > tot YtLLUW 
" (V) for VIOLET" 
" (W) for WHITE" 
" (S> far BLANK" 
K*="R 



COLORS": PRINT 



THEN C(I)=1 



THEN 
THEN 



C<I)=2 
C < I ) =3 
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660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

765 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

lOOO 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

llOO 

1110 

1120 

1130 

1140 

1150 

1160 

1165 

1 J70 

1 1 80 

1190 

1200 

1210 

1220 

IZ^U 

1240 

1250 

1260 

1 270 

1280 

1290 

1 300 

1310 

1320 

1330 

1340 



IF K*="Y" THEN C ( I ) =4 

IF K*="V" THEN C<I)=5 

IF Kt="W" THEN C(I)=6 

IF K*-"S" THEN C<I)=7 

IF K*="R"QRK*="B"ORK«="B"ORK*="Y"ORK*="V"ORK*="W"ORK*=" 
BOrO 630 

BEEP:PRINT :PRINT TAB(14>;I;" "iK^isFOR J=l TO 30:NEXT 
PRINT TAB(IS) ; "tlianks-iBOTG 480 
R=INT<RNDa>*7) : RETURN 
SCREEN 2,2:CLS:PRINT CHR*(16) 
COLOR 4,15, (176,3n-(253,191) ,14 
LINE (33,31)~(176,31) ,15 
LINE (33, 10) -(253, 191) ,15,B 
LINE (134, 10) -(134, 191) ,15 
LINE (175,10)-(175,191) ,15 
REM :PAINT{140,15) ,15 
C0L0R4,14 

CURSOR 46,19;PRINT "? 7 ? ?" 
CURSOR 188,14:PRINT "Use theBe" 
PRINT TAB(32> ; "keys- 
PR I NT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
SCREEN 



THEN 720 



NEXt 



TAB < 29) ; "R 
TAB (29) ; "G 
TAB (29) ; "B. 
TAB(29) ; "Y 
TAB (29) ; "V 
TAB (29) ; "W 
TAB (29) 



"S - 



red" 
green" 
blue" 
yel low" 
violet" 
whi te" 
b I an k " 



TAB (29) 
: PRINT 
TAB (29) 
2 



; "CURSOR KEYS" 
TAB(29) ; "LEFT= back" 
: "DQWN=^line ok" 



Y=45:A-1 

X-46:FDR 1^1 10 ^ 

IF X;46 THEN X=46:l=l 

FOR J-1 TO 20:NEXT 

CURSOR X,19:C0L0R 1:PRINT "7" 

K*=INKEY*: IF K^-"" THEN CURSOR X,19:C0L0R 

CURSOR X,11:PRINT CHR* <8) 



15:PRINT 



'■■:GOTO 1020 



K*="R" 
K*="6" 
K*="B" 
K*="Y" 
K*="V" 
K*="W" 
K*^"S" 
K*=CHR* ( 

k:*=chr* ( 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF K*="R"aRK^ 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
9) 
1) 



PtI)=l:Q=8 

P(I)=2:Q=12 

P(I)=3:Q-4 

P(I)^4:Q^10 

P<I)-5:Q=13 

P(I)=fa:Q=15 

P(I)^7:D^0 ' 

THEN X=X-24: 1=1-1 :GOTO 1000 

THEN 1210 

■G"ORK*="B"ORKt="Y"ORK^="V"ORK.*="WaRKi="S" 



THEN 1160 



1 



GOTO 1020 

IF Q=0 THEN CIRCLE(X,Y), 

IF Q<,0 THEN CIRCLE ( X, Y) ,5,Q, ,, ,8F 

IF 1=4 THEN FOR T-1 TO 15:LINE ^ ISB , 1 34 ) - (240 , 134 ) : NEXT 

X^X + 2'*:IF X.118 THEN X^lia 

IF 1=4 THEN 1020 

NEXT 

B=^0:D=0:W=140 

FOR i-=i ro 4 

11- Pli J=U(1> 
NEXT I 

FOR 1^1 TO 4 
FOR J^l TO 4 
IF P(I)=C(J) 
NEXT J 
NEXT I 

IF B=0 THEN 1320 

FOR 1 = 1 TO B: CURSOR W, Y: CQLDRl , 1 4 : PR INT 
IF D-O THEN 1360 

FOR 1 = 1 TO D:CURSOR W, Y : COLOR 15 , 1 4: PRINT "T " : W=W+a: NEXT I 
IF D^4 THEN BEEPiCURSQR 181 , 1 39: COLOR 12,14:PRINT "YQU TOOK" ; A: CURSOR 196,1 



IHtN U^L)+l:P(l)=a:L(i) =9 



THEN B=B+l:P(l)=10:C(J)=ll 



"f ":W=W+8:NEXT I 
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48: PRINT "TRIES" : GOSUB 1400:G0SUB 1690 
1350 IF D=4 THEN FOR F-15 TO 1 STEP -.5: 
40, 2 1 PRINT CHR*(17) ; "CORRECT" ; CHR* < 16) : 
1360 FOR 1^1 rO 4;C(I)^E(I) ;NEXT I 
IF A=10 THEN 1390 
Y^y+15:A^A+1:BEEF:B0T0 990 
CURSOR 44,2: CaLaR12, 14: PRINT "SORRY 
; SOUND O 



1 370 
1380 
1390 
NEXT 
1400 
1410 
1420 
1430 
1440 
1^1 CiO 
1460 
1470 
1430 
1490 
1^00 
1510 
1 520 
1530 
1540 
1 550 
1560 
1570 
1580 

E X r 

1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1660 
1690 



SOUND 1,300-12*F,F:NEXT F:SOUND 0:CURSOR 
GOTO 1400 



YOU LQSE":FOR 1=1 TO 50:SOUND 1,110,12: 



X = 46 

FOR 1^1 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



E(I)=] THEN Q=a 

E(I)-2 THEN Q=12 

Ed) =3 THEN Q=4 

Ed) -^4 THEN Q=10 

E(I)=5 THEN D=13 

E<I) -6 THEN Q^15 

Ed) =7 THEN D=0 
CIRCLE ;X, 20 J ,8,Q,l.l,0,i,BF 
X^X+24:NEXT 

CURSOR ia4,i60:C0LaR6,14:PRINT 
PRINT fAB<30);"T0 PLAY- 
PRINT TA&(30) ; "AGAIN Y/N" 
K*^INLEY* 

IF Kf="N" THEN 1580 

IF Kt^"Y" THEN ERA5E:SCREEN 2,2:CLS:G0T0 
GOTO 1540 

CLS:CURSOR 58,40:PRINT CHR* ( 1 7) ; " SONE PEOPLE" : CURSOR 
'''":FOR 1^1 m 1000:NeXT : SCREEN 1,1:CLS:END 
FOR K=l TO 2:REST0RE 
FOR DE^l TO 100: NEXT 
FOR J=l TO 28: READ T 
IF T=0 IHEN 1640 

FOR 1=1 TO T:SOUND 1 , 1000 , 12 : NEXT 
SOUND O 
FOR DE=1 TO 20: NEXT 

NEXT j,f.: 

DATA 2,2,2,0,2,0,6,6,2,0,2,6,0,0,0,0,6,6,0, 

RETURN 

SCREEN 1:CLS:C0LDR1,15:F0R 1=1 TO 6:SCREEN 1 , 1 : SCREEN 



"DO YOU WANT" 



400 



55,60:PRINT "CAN'T TAK 



,0,6,2,0,6,2,2 

2,2: NEXT : RETURN 




C01)l 



I 



BKKAKER 
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The Case by Rod CucUow 



In this game, you play the part of a secret agent trying to find some important documents, but like any game of this type 
it is exceptionally complex and great fun. A must for budding Bogarts! 
Instructions are in the program. 




ROD 

2 REM 

3 SCREEN 2,2jCLSiCaL0R 1 , 13; ClJRS0R50,50i PRINT CHR* < 17) j "YOU NEED PAPER" i CURS0R70 
,70iPRINT "AND PENG IL" : CURSDR30 , 90: PRINT "TO PLAY THIS BAME"iCURSOR 60,lB0iPRINT 

CHR* ( 16) ( "PRESS ANY KEY TO START" 



4 
5 
6 

7 

a 

9 

10 

11 

12 

13 

14 

15 

R*(M) 

16 IF H=9 THEN 

17 IF H>9 THEN 

18 IF H>=Z AND 



IF INKEY*^"" THEN 4 

SCREEN 2,2iCLSieQSUB 150 

ERASE 

SOSUB 117 

DIMBT«C100) ,SH*<100> 

P=l , v=Oi X = liEP"10! SU=0 :0P«=0 

U=OsNM=!0: Z=16iBT=0iSH=0iFT=0(S*= 

PRINT CHR»(19) 

CLS 

SCREEN 1 , liCLS:C0L0R15, 13:CURSDR 

CURSOR 14,1 

DT=Oi CURSOR 



" I B«: 



15,0!PRINT"THE CASE" 
PRINT"=='========" : N(i:=NM+l 

0,2sPRINT "You are at the"iCURSOR 24,2iPRINT 



"Time is" j STR* <H) +ST 



CURSOR 33,3:PRINT 

CURSOR 34,3: PRINT " ' " 

M>15 AND F(6)=0 THEN CURSOR 2,21jPRINT "TO LATE YOUR CONTACT HAS 



GONE HOME":BaSUB 236 : FOR DE=*1 TO lOOiNEXT : CURSOR 2,2l!PRINT 

It 

19 A=19-(LENCB*) /2) sCURSOR A,19!PRINT B*:B*="" 

20 I=7-CLEN(R*(P) )/2) 

21 IF Br*(BT)=R*CP) THEN BT=BT-1 

22 IF BT*(BT)=R*(P) THEN BT=BT-1 

23 Br-BT+1: CURSOR I,4;PRINT R* <P) i BT* (BT) =R* <P) 

24 IF EP=P THEN CURSOR 0,21: PRINT "ENEMY AGENT IS HERE" : NE=NE+1 

25 IF EPOP THEN NE=0 

26 IF P=MP AND F ( 1 ) =0 THEN CURSOR 24,4: PRINT "MESSAGE HERE" 

27 F(3) =0:T1^H+M/100 

28 IF F(4)^l AND R*CP)=S* AND UOTl AND U+.15>T1 THEN CURSOR 23,4:PRINT "CONTACT 
IS HERE":FC3)=1 
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29 

30 

>" 

31 

32 

33 

34 

35 

36 

37 

R 

38 

39 

40 

41 

42 

43 

44 

45 

U" 

46 

4 7 

48 

49 

50 

51 

52 

r-i3 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
OR 
90 
7, 
91 
92 
GO 
93 
94 



IF P=^l AND HCFH AND K(7)=l THEN QOTO 103 

CURSOR 14,6!PRINT "WHAT NEXr":CURSOR 4 ,8: PRINT" <:hold down X -for status report 

CURSOR 17,10iPRlN1 " 

IF INKEY*^-"" IHEN CURSOR 17,10:PRINT "7 e":GDTO 32 

IF INKEY»="X" THEN 8010 239 

CURSOR 17, 10! INPUT I* 

IF I*="END" THEN GOTO 222 

IF I*="FDLLQW" AND StJ>5 THEN QQ 1 46 

IF 1»=«"ESP" THEN CURSOR 17,4:PR1N1 LEFT* (R* (EP) , 1) p "?"; RIGHT* <R» (EP) , 1 ): CURSD 
17,101 PR INT "? ";eOTO 31 

IF I*<>"HIDE" THEN 41 

P«FNA(20):IF P-^EP IHEN 39 

SU=0:GOTO 13 

V=0:FaR 1=1 TO 10 

IF I*=V*(I) THEN V-1 

NEXT 

IF V=0 THEN V=l 1 

IF NE>3 AND FNA(10)>3 AND VOl AND EP=P THEN CURSOR 22,21iPRINT "AND SEES YD 
: SU=SU+1:G0T0 14 

IF SU>2 THEM CLS: CURSOR 10, 3i PRINT 

ON V GOSUB 52,59,66,75,76,82,89,92,98,135,17: 

M=M+DT:IF M>59 THEN M=-M-60 : H=^'H+ 1 



"YOU ARE CAPTURED" !SU=0 I GOSUB 207 i QOTO 13 



IF F(2)=l AND H>=CH THEN F ( 4 ) ■=> 1 

IF H=FH THEN GOTO 102 

GOrO 13 

CURSOR 15, 12:PR1NT"WHERE TO" 

CURSOR 1/,14: INPUT Ni^ 

NP-OsFOR 1 = 1 '10 20 

IF N* = R«:(I) THEN NP=^I 

NEXT : IF NP-0 THEN GOSUB 175:G0T0 13 

GOSUB 111 

P=NP: RETURN 

Dl <^ 

CURSOR 15,12:PR1N1 "BAY WHA1 ": CURSOR 17,14: INPUT Q* 

IF EP^P IHEN B*-^"YUU A I 1 RAC TED THE ENEMY AGENT": IF FNA(7) 

IF F(3)=0 THEN B*="NOBDDY HEARS YOU": RETURN 

B*-"CONTACT IGNORES YDU":RETURN 

Bi:=^"YOU MADE CONTACT ~ HE TAKES THE CASE" 



'4 THEN SU=3i RETURN 



17, 14s INPUT Q* 



UN 



IF DtOP* THEN 

IF F(6)=i THEN 

F(/)--^ls RETURN 

DT^5 

CURSOR 6,12:PRINT "WHAT DO YOU WANT TO EXAMINE" : CURSOR 

IF Q-|:=" CASE "AND F (6)^0 THEN B*:="WHAT CASE 7":RETURN 

IF Q*="KEY"AND F{5)=^0 THEN B*="WHAT KEY ?": RETURN 

IF Q*-="CASE" THEN Bf="TaP SECRET" : RETURN 

IF Q*="KEY" THEN B*="A NUMBER -"+STR* <KN) : RETURN 

B*="NarHING SPECIAL" :RETURN 

IF POMP OR F{1)=1 THEN BS:="NOTHING TO READ":RETURN 

B«="A WORD -' "+P*+" ' " 

Fd )=1: RETURN 

DT=3 

IF P016 THEN B*="NaTHING TO OPEN" i RETURN 

IF F(3)=^0 THEN B*="YaU DO NOT HAVE A KEY": RETURN 

CURSOR 10,12tPRINT "WHAT LOCKER NUMBER" i CURSOR 17, 14i INPUT 

IF KNOLN THEN B*^"rHE KEY DOES NOT FIT": RETURN 

B*^-:"THE LOCKER I£i OPEN - YOU HAVE THE CASE" : F (6) =1 : RETURN 

DT-5 

IF EPOP THEN B*="FDLLOW WHO ?": RETURN 

NP-FNA (20) : GOSUB 1 1 1 : P-=NP 

IF FNA(10)>B THEN P=KP 

IF FNA(10)> 8 AND EPOlO THEN B*=^"HE GIVES YOU THE SLIP" 

ep--=p 

b*=^"":RE"IURN 

CURSOR 11, 12: PRINT "HOW MANY MINUTES" : CURSOR 17,14: INPUT 

24,15:PRINr "CHEAT" : BEEP: CURSOR 17,14:PRINT " 

IF UT>60 THEN CURSOR O.lSsPRINT "NO MORE THAN - 60 - AT 
14: PRINT " "!GarO 89 

RETURN 

IF H'^-CH AND M>00 THEN CURSOR 2,17iPRINT "TO LATE YOUR CONTACT HAS GONE HOME 
TO 222 

CURSOR 7,12:PRIN1 "WHERE DO YOU WANT TO MEET ": CURSOR 17,14: INPUT 

CURSOR 0,15(PR1NT : INPUT "WHAT TIME (HH.MM) ";U:Z=U 



RETURN 



DT: IF 



DKO THEN CURS 
":GDTO 39 
TIME": BEEP: CURSOR 1 



5« 
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95 IF CH>=Z OR Z>FH THEN CURSOR 6,17:PRIN7 "DO YOU HAVE A TIME MACHINE -^-'iBEEPsG 
OTD V4 

96 IF P=CP AND TKU AND H<CH THEN F(2)=^l 

97 DT-3i RETURN 

98 B*=^"N0THIN[3 HERE" : Dl =■ 10: SH=:=SH+ 1 : SH* (SH) -R* (P ) 

99 IF F<5)^1 AND P=KP THEN B*-^"NOTHING HERE NOW" 

100 IF P=KP AND F(5)=^0 THEN B*="YOU FOUND A KEY":F(5)=1 

101 RETURN 

X02 CLB:PRIN1 :PRINT "TOO LATE - YOU MISSED THE LAST PLANE" : FORI:=^i T0200! NEXT: SOU 
ND1,:;, 15: FORI- 1 r09: SOUNDS , 3500: NEXT: FORI^15TQ0STEP-. 2: S0UND4 , , I : NEXT: PRINT: PRINT 
AND THE ENEMY ABENT SHOT YOU":B0TO 222 

103 CURSOR 7,12:PRINr "YOUR MISSION WAS A SUCCESS" 

104 TL^' (FH~H)*60-M 

105 RUNT ( C20/NM+ rL/120) *S0) 

106 CURSOR] 3, 15: PR INI "YDUR SPY RATING" 
10/ eOSUB 225 

lOe CURS0R13,17!PRINT " IS" 

109 CURS0R13, 19:PRINT " "jR 

110 GOTO 222 

111 NY=INr < (NP-1) /5> 

112 NX=NP-5*NY 

113 DX=ABSCX-NX) :DY=ABB(Y-NY) 

114 X=NX:Y-NY 

115 D-SQRCDX"2+DY'2) 

116 DT=INT(5*D) :RETURN 

117 DIM R*(20) ,V*(10) 

IIB FOR 1=1 TO 20: READ R*(I):NEXT 

119 FOR 1=1 10 10: READ V*(I>:NEXT 

120 DATA AIRPORT, BUS STOP , BRIDGE .RIVER , CHURCH 

121 DATA PARK, CAFE, BANK, CINEMA, HOTEL 

122 DATA MARINA, NIGHT CLUB, POST OFF ICE , POLICE STATION, FAIRGROUNDS 

123 DATA STATION, TOWN HALL , LIBRARY , COLLEGE , GARAGE 

124 DATA MOVE, SAY, EX AMINE, READ, OPEN, FOLLOW, WAIT, LEAVE, SEARCH, HELP 

125 DATA CASE, CHASE, SEGA, KEYBOARD, POP GROUP, GOOD GAME 

126 DEF FNA(X)=INT(RND(1)*X+1) 

127 H^FNA(2)+8:M=0 
12e FH=FNA(2)+14 

129 CH=FNA(2)+H 

130 MP=FNACia) :KP-FNA(18) 

131 EP-^KNAC IB) :CP^FNA<ie) 

132 FDR 1=^1 TO FNA(6) 

133 READ P*:NEXT 

134 KN=FNAC900)+99 

135 SCREEN 1 , 1:CLS 

136 PRINT TAB (13); "THE - CASE" 

137 PRINT TAB { 13) ; "=-=^-—=-=^=": PRINT 

138 PRINT "COLLECT MESSAGE FROM": PRINT 

139 PRINT "THE " j R* (MP) : PRIN T 

140 PRINT "CONTACT WILL COLLECT" : PRINT 

141 PRINT "FRGM THE " ; R* ( CP ) : PR I NT 

142 PRINT "AT ";CH; ".00" 

143 PRINT: PRINT: PRINT "LAST FLIGHT LEAVES" : PR INT 

144 PRINT "AT "; FH; ". 00" : PRINT 

145 IF FT-^0 THEN 147 

146 PRINT "every time you use HELP you waste time and increase the chance of ge 
ttiny caught" 

147 PRINT :PRINT "pretis any key to continue" : FT=1 

148 IF INKEY*-"" THEN 148 

1 49 DT^^ 1 NT < RND < 1 ) + 1 0*NM ) : SU^^SU+ . 5 : RETURN 

150 CURSOR 80,90:CaLQR liPRINf CHRi" ( 17) ; "THE" : CURSOR 120 , 120: PRINT "CASE" : CHR* ( 1 
6) 

IDl SOUND 5,3.15:F0R I^llOO TO 110 STEP-70: SOUND 3,I,10:NEXT : SOUND 

152 SOUND 4,0,0:FOR 1-^15 TO O STEP-1:S0UND 1 ,900 , I : SOUND 4,,I:NEXT 

153 SOUND 4,0,1S:F0R 1=1 TO 15 STEP .4:SDUND 4,,I:NEXT : FOR 1=15 TO STEP -I'SO 
UND4, , I:N£X T 

154 SOUND 1 , ,15:SGUND2,',15:SDUND3, , 15: FORI =2000T0l 175STEP-75: SOUND 1 , I : SaUND2 ,2220 
-I:SQUND3, (I XUR 1 1 00 ) + 100 : NEXT : FOR I = 1 5T00STEP-1 : SOUND i , ,I:S0UND2. , I:SaUND3, ,I:NEX 

155 S0UND3, ,0:FOR A-10000 TD 500 STEP -330: S0UND3 , A: SaUND4 , 3 , 15: S0UND5 . 3, 15b NEXT 
:FDR I-.n4 TO O STEP -1 : SOUNDS ,3 , I : NEXT 

156 FOR 1=510 TO 4000 STEP 200: SOUNDS , 3 , 15: SGUND3 , I , 9: NEXT :FDR 1=13 TO STEP - 
..5:SGUND4, , liNEXr s SOUNDO 
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157 S0UND4,3,15:F0RI=1 TO 20: S0UND3, RND (8) #3000+500: NEXT :FOR 1=15 TO STEP -.3 
:S0UND4, , i :NEXr 

158 SOUND 5,3,15:F0R I==l TO 20: S0UND3 , RND (B) *3000+500: NEXT iFQR 1=^15 TO STEP - 
.3!S0I.INU:i, , I:NeXT 

159 FOR DE^l TO 120sNEXT 
SPUNDI ,:?.,15:F-aRI-i TO 9: SQUND3,3S00: NEXT : FOR I==15 TO STEP -. 2: SQUND4 , , I ! N 



160 

EX r 

]61 
162 
163 



1 nsLruL: t i on -a 
tl"it; Stat ioit , 



PRINT "Your Mis 
': PRINT : PRINT " 
hand it ovt?r to your cont 



cdfe-f ul 1 y . 



last plans takes o-f-f 
: PRINT "press a key to 



FOR UE^^ 1 ID 75: NEXT 

SC-REfc'JM 1 , I : CI S 

PR ] N 1 : PR 1 N I ! PR 1 N I " — — -^-^-i...-^.— =^— -.■ 
SI Oil i ii' a cuiTipl i caled uiio , ^u r ead the-jie 
You must Lollt.'Cl a Lasjt; +rijni a lucker at 
at. L and gijL " ; 

164 PRINT " back to the airport be+ore the 
putsr will tell you what ti me) ": PRINT :PRINr 

165 IF 1NKEY*="" THEN 165 

166 PRINT rPRINIsPRIN'f 

167 PRINI "The computer will tell you where your contact will be at 
ou musLieave a meiasaye at thaL place, be+ore he gets there, telling 
d wlien you will meet him to hand aver the case." 

168 PKINl '■ You must find out Liie password be+or-eyou meet him, and make sure you 
are not more than 15 minutes late.":PRINT " Be-fore you can get the case, you 

inustfind tlie key tu the locker and also its number. Unfortunately the key is" 

Hotel. You must fi 
enough to dr op the 



(the com 
conti nue" 



what time. Y 
hi m where an 



169 PRINT "in the hands of enemy agents, whose HQ is at the 
lid an tjiu-'iiiy lipy and follow him, iuJpiny he will be careless 



key (and 
oose film" i 

170 PRINT " try 
PRINT :PRIN1' 
IF INKEY*^."" 
GQSLIB 175 
GOTO 6 
SCREEN 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 

I snyyesL 
IF INKEY*^=^" 



not see you). If he does see you, You will have to fight. If 



you 



171 

172 

173 

174 

1/5 

176 

177 

17B 

179 

3 80 

181 

182 

183 

184 

1B5 

186 

187 

188 

NT " 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

UND4 



esp . 
iPRINT ' 
THEN 17: 



'press a key to continue' 



2,2: CLS 

70, 10: PRINT CHR* ( 17) ; "THE CASE" 
40,30: C0L0R14: PRINT CHR#(16) ; "her e 
12,50: COLOR liPRINT CHR* ( 17) ; "BANK 
"PARK POST OFFICE" 
"CAFE FAIRGROUNDS" 
"RIVER NI6HT CLUB" 
"HOTEL TOWN HALL" 



is a list of places to go' 

POLICE STATION" 



12,60:PRINT 

12,70:PRINT 
12,S0:PRINT 
12,90:PRINT 
12, 100: PRINT 
12, 110:PRINT 
12, 120: PRINT 
12, 130sPRINl 
12, 140:PRINr 
50,1 



"BRIDGE 
"CHURCH 
"GARAGE 
"CINEMA 
"MARINA 



0:CaLOR14!pRINT 
you wr i to down 

THEN 189 



BUS STOP" 
AIRPORT" 
SrATION" 
LIBRARY" 
COLLEGE" 
CHR* ( 16) i "press any key to continue ":PRINT :PRI 
Lhe places" 



SCREEN 
CURSOR 
CURSOR 
CURSOR 

CURSOR 
CURSOR 

CURSOR 
CURSOR 
CURSOR 

CURSOR 
CURSOR 
CURSOR 
CURSOR 



CLS 



70,0: CDLORl 5: PRINT CHR*(17) ; Z* 
40,20:CGLaRi4:PRINr CHR*C16) ; "here 
40,40:C0L0R 1:PRINT CHR* C 17) j "SAY 
MOVE 



1 s 



40, 50: PRINT 
40,60: PRINT 

40, /O: PRINT 
40,80: PRINT 
40,90; PRINT 



CHR*C17) ; 
FOLLOW" 
"READ SEARCH" 
"OPEN LEAVE" 
"WAIT HELP" 
"HIDE END" 
50, 110: COLOR 14: PRINT CHR*(16) 
40, 130:C0LC]R1: PRINT CHR*(I7) ; 
10, 140:PKINT "SEGA 
40, 150 .-PR I NT "CHASE 
CURS0R50 ,170: COLOR 1 4 : PR 1 NT 
CURSOR r-JO, 180:PRINr "pr uss 
IF INKEY*-"" THEN 205 
SCREEN 2,^jCLS:RETURN 
PRINT [PRINT " YOU 
SOUND 5,3, 15: FDR I -1100 
SOUND 4,0,0: FOR 1-15 TO 
SOUND 4,0,iri:rUR I-l TO 
, ,I:MEXT 



a list of 
EXAMINE" 



words to use' 



"here 
'CASE 
GOOD GAME" 

POP GROUP" 
CHR*(16) ; "wr ite 
any key to star't 



is a 1 i st 
KEYBOARD 



of passwords" 



them down then 



FIGHT WITH THE AGENT 

TO 110 STEP~70: SOUND 

STEP- 1: SOUND 1 , 900 , I : SOUND 4, 

15 STEP .4: SOUND 4,, I: NEXT : FOR 



PRINT 

, I , lOiNEXT 



I 



SOUND 
NEXT 



1-15 TO O STEP -I: SO 



211 SOUND 1, ,]5:BUUND2, , 15 : SUUNU3 , , 15: F0Rr^=2000Tai 175STEP-75: SOUNDl , I : S0UND2 ,2220 
--I:S0UND3, ( tXURl 100) i- lOu: NbX T: FORI ■ KJTDOS I'EP-I : SOUNDl , , I : S0UND2 , , IiS0UND3, , I:NEXT 
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212 SaUND3, ,0:FQR ft^lOOOO TO 500 STEP -330: S0UND3 , A: S0UND4 , 3 , 15: SOUNDS ,3 , ISs NEXT 
:FOR I 11- ro HTEP - I : SQUND^j , 3 , I : NEX T 

213 FOR 1 = 510 TO 4000 STEP 200; B0UND4 , 3, I5s S0UND3, 1 , 9: NEXT : FOR 1=^15 TO STEP - 
.5:S01JND'V, , I :NEX r : SOUNDO 

214 S0UND4,3,15:F0RI=^i TO 20: SOUNDS ,RND (8) *3000+500: NEXT : FOR 1=1S TO STEP -.3 
:S0UND4, ,I:NEXT 

215 SOUND 5,3,15:F0R I-l TO 20SB0UND 3 ,RND (B) *3000+500! NEXT: FOR 1=15 TO STEP-. 
3:S0UND 5, , I a NEXT 

216 FOR DE=l TO 125s NEXT 

217 SaUND4,3,15:F0RI=l TO 9: S0UND3,3500: NEXT s FOR 1=15 TO O STEP -. 2: S0UND4 , , I : N 
EXT 

218 IF FNA(10)>7 THEN PRINT i PRINT " YOU STAGGER AWAY TO THE HOSPITAL" : PRINT: 
PRINT" TO RECOVER TO FIGHT ANOTHER DAY": GOTO 222 

219 IF FNA(10)>4 THEN PRINT : PRINT " YOU OVERPOWER THE ENEMY AGENT": OP=lsEP 
^OiIF F(5)-=0 AND FNA(5)>3 THEN PRINT : PRINT " AND FIND THE KEY":F(5)=1 
:FOR DE«-1 TO SSOsNEXT :EP=1:RETURN 

220 IF OP^l THEN FOR DE=1 TO 250: NEXT s RETURN 

221 IF 0P=0 THEN PRINT : PRINT " YOU ARE OVERPOWERD AND THROWN" : PRINTS PRINT" 

IN JAIL TO RQT"sPRINT 

222 PRINT iPRINT :PRINT :PRINT "Do you want to play again - Y/N " ; : GOSUB 236: I NP 
UT A*! GOSUB 236:SU^0 : FT^O 

223 IF A*="Y" THEN RESTORE : GOTO 6 

224 CLS:END 

225 RESTORE 235 

226 FOR S-^1 TO 15 

227 READ L 

22B SOUNDl ,L, 15: F0RN=0T035-^S: NEXTN 

229 S0UND2,L,13iF0RN^--0T035+S:NEXTN 

230 S0UND3 , L . 15 : F0RN^0T035+S: NEXTN 

231 NEXrS 

232 FOR 1=15 TO BT^P -. 5: SOUNDl , L , I ; S0UND2 , L , I : S0UND3 ,L , I : NEXT 

233 SOUND 

234 RETURN 

235 DATA 262 , 330 , 392 , 330 , 262 , 440 , 494 , 523 , 494 , 440 , 392 , 330 , 392 , 330 , 262 

236 FORS-300r03000BTEPi73: SOUNDl ,S, 10: S0UND2 , 500+S , 13: S0UND3 , 2000- (S/2) ,15:NEXTS 

237 FDR DE=1 TO 50: NEXT :SOUND 

238 RETURN 

239 IF NM>1 THEN 244 

240 IF NM=1 THEN CLS:PRINT :PRINT "ONLY PRESS X IF YOU NEED TO CHECK" : PRINT: PR 
INT" UP GN YOUR MOVES. ": PRINT : PRINT "OTHERWISE INPUT ONE OF THESE WORDS :-":PRI 
NT : PRINT 

241 PRINT " SAY, EXAMINE, MOVE, FOLLOW, READ,":PRINT :PRINT " SEARCH, OPEN, LEAV 
E, WAIT, HELP, ":PRINT :PRINT " HIDE, eND,":PRINT sPRINT "press a key to continu 

B" 

242 IF INKEY*="" THEN 242 

243 GOTO J 3 

244 CLS: PRINT : PRINT "-STATUS REPORT -v^-v-v^^ ^^^^^^„ 

245 PRINT "YOU HAVE BEEN TO :-": PRINT 

246 FOR I=-l TO BT 

247 PRINT BT*(I) 

24B FOR DE-^1 TO 50: NEXT 

249 NEXT I 

250 PRINT SPRINT "prese a key to cantinue" 
231 IF INKEY*^"" THEN 251 

252 PRINT : PRINT "YOU HAVE SEARCHED :-": PRINT 

253 FOR I-=l ro SH: PRINT SH* C I) 

254 FOR DE=1 TO 50; NEXT 

255 NEXT I 

256 PRINT ;PRINT "press a key to continue" 

257 IF INKEY*="" THEN 257 
25B PRINT : PRINT 

259 IF F(l)==l THEN PRINT "YOU HAVE THE PASSWORD :- ";P*:GaTO 261 

260 PRINT "YOU DO NOT HAVE THE PASSWORD YET" 

261 PRINT : PR I NT 

262 IF F(5)=l THEN PRINT "YOU HAVE THE KEY NUMBER :-'"iKN:GOTQ 264 

263 PRINT "YOU DO NOT HAVE ThIE KEY YET" 

264 PRINT : PRINT 

265 IF FC6)-3 THEN PRINT "YOU HAVE THE CASE": GOTO 267 

266 PKINI "YUU DO NG I HAVE THE CASE YET" 

267 PRINT : PRINT "pr e=>Ei a t;:ey to cont i hub" 

268 IF INKEY*-"" THEN 268 

269 GOTO 13 
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SpaCeFighter by Richard Tumer 



In this game you are in charge of a space ship and you must destroy the red beasties on planet surface , To run use the joystick 
and fire to fire. 

The game is actually quite addictive, and gives some insight into how you can write a good game. 



i^ 



rft- 



.1/ 



:€t' 



1 SC=0:MEN=3: PRINT CHR* ( 16) s GOSUB 6000 

2 SCREEN 1 , 1 

5 CLS:PRINT "Please Wait." 

10 SCREEN 2, 1:CLS!C0L0R15,1, <0,0)-(255, 191) 
15 COLOR, 15, (210, 0)-(255, 191) 
20 LINE(20&,0)-<207,191) ,6,B 
40 CURS0R218, 10:C0L0R1:PRINT"SCQRE" 
50 COLOR, 10, (216, 8)-(240,ia) 
60 LINE (215,7)-<248,l'y) ,1,B 
65 LINE (213,5)-(250,21) ,1,B 

68 CURSGR2ia,30:PRINT SC 

70 COLOR, 10, <216,60)-(240,7O) 

71 CURSDR218,63:C0L0R1:PRINT"MEN' . " 

72 LINE <215,61)-(24a,71) ,1,B 

73 LINE (213,59)-<250,73) ,1,B 
75 CURS0R218, 83: PRINT MEN 

100 FOR 1=0 TO 250:LET X=INT (RND ( 1 ) »210) : Y=INT (RND CI ) »191 ) :PSET (X, Y) , lO: NEXT 

101 CIRCLE(102,190) , 102 , 6 , . 15 , 1 , 1 , BF 

102 PATTERNS**5,"181B3C3CFFFFC3C3" 

103 PATTERNStt6, ■■C3C3FF7EFF7E6666" 

104 PATTERNStt7 , "E7E7E7E7E7E7E7E7" 

105 PATTERNS#8, "0E0F0F0E0E0E0606" 

106 PATTERNS*t9, " 70F0F07070706060" 

110 LINE (90,80)- (120, 110) ,4, B 

111 LINE (110, 100) - ( 140, 130) ,4,B 

112 LINE(90,80)-C 110, 100) ,4 

113 LINE(120,B0)-(140,100) ,4 

114 LINE(90, 110)-( 110, 130) ,4 

115 LINE(120,110)-(140,130) ,4 

116 BLINE (2ia,29)-(250,45) ,1,BF 

117 CURSaR218,30:PRINT SC 

118 SCREEN 2,2 

120 PATTERNSttO , "00OOOO0000OOOFO6" 

121 PATTERNSttl , " 1 F.3E7CFC IFOOOOOO" 

122 PATTERNS#2, '■00O0OO00OO0OF06O" 

123 PAT rERNStt3,"F87C3E3FF8000O00" 

124 MA60: X=95: Y=a0 
130 FORI^l rQ25 
140 X = X + 2:Y=^Y+2 
145 A^20 :B=161 
148 LET V^O 

150 SPRITEO, (X,Y) ,0,4 

160 SPRITE2, (X+8,Y) ,2,4 

170 SPRITEl, (X,Y+8) , 1,4 

180 SPRITE3, (X+8,Y+8) ,3,4 

190 NEXT I 

200 ST=STICK<1) 

210 IF ST=3 THENX^X+20 
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211 IF ST=7 THENX-X-20 

212 IF ST=1 THENY=y-20 

213 IF ST=5 THENY=Y+20 

218 IFX+8<10THENX=ia5 

219 IFX-a>lB5THENX=20 

220 IF Y-8<1THENY=255 

221 IF Y+8>155THENY=l 

222 SPRITEO, <X,Y> ,0,4 

223 SPRITE2, (X+8,Y) ,2,4 

224 SPRITEl, (X,Y+8> , 1,4 

225 SPRITE3, (X+8,Y+B) ,3,4 
230 SPRITES, (A, B) ,5,10 
240 SPRITE6, (A,B+8) ,6,10 
250 SPRITE?, <A,B+16) ,7,10 
260 HPKlTtB, (fi-B,B+4) ,a,10 
270 SPRITE9, <A+S,B+4) ,9, 10 
275 V=V+1:IFV=5 THtN GOTO 800 
280 IFSTRIG(l)=lTHENLINE(X+8,Y+8>-(X+8,B 

A+10>XANDA<X+10THEN 30OO 
290 G=INT(RND<1)*2):IF G=0 THEN A=A-10 
IF 6=1 THEN A=A+10 
IFA<10THENA=185 
IFA>185THENA-10 
GOTO 200 

V=0:LETa=INT(RND<l)*3) 
IF Q=2 THEN LINE (A , B) - < X , Y) , 6: BL INE ( A , B> - < X , Y) , 0: BEEP: GOSUB 900 



> ,6:BLINE{X+a,Y+8)-<X+B,B ) ,1:BEEP: IF 



300 

310 

320 

530 

800 

810 

820 

830 

B40 

90O 

910 

930 

940 

941 

950 

960 

970 

1000 

1010 

1020 

1025 

103O 

1035 

1040 

3000 

3010 

30 1 5 

3020 

3030 

3040 

3050 

3060 

30/0 

6000 

6010 

6020 LINE 

70) iLINE 

603O LINE 

55) : LINE 



<A,B)-(X-2,Y) ,6!BL1NE 
{A,B)-<X+2,Y) ,6:BLINE 



IFQ^O THEN LINE 

IFQ=1 THEN LINE 

GOTO 275 

FOR I=15TD OSTEP-1 

CIRCLE(X,Y) ,15,6,1,1, 1 

SOUNDS ,1,1 

NEXT I 

BC I RCLE (X,Y),15,6,1,1,1 

MEN^MEN-l: IFMEN=0THEN10OO 

BLINE(218,e2)- (240,92) , 1 , BF : CURS0R218 , 83: PRINT 
GOTO 110 

SCREEN l,I:CL3iPRINT "<<<GAriE OVER>>>" 

PRINT CHR*(16) 

PRINT "Another Game <:Y/N>?" 

PRINT "Your scare " ; SC 

IF INKEY*^"N" THEN END 

THEN SC-0:MEN=3: SCREEN 2,1: GOTO 



(A,B>-(X-2,Y) ,6: BEEP 
(A,B)-(X-»-2,Y) ,6:BEEP 



MEN 



IF INKEY*="Y" 

GOTO 1030 

FOR 1=15 TO O STEP -1 

CIRCLE<A,B) ,10,6,1 ,1,1 

BCIRCLE(A,B) ,10,6,1 , 1, 1 

SOUNDS, 1,1 

NEXT I 

3L;=SC+100 

bH Nt ( 2 1 fa , 29 J - < 250 , 45 ) , i , BF 

CUKSUK2 1 8 , 30 : FK I N I SC 

GU I U HO 

SCHLEN 2,2:l:LS:CULUR,1, (O , O) - ^255 , 19 1) 

CURSOR 20,10:C0L0R15:PRINT "Richard Turner 
(20,40)- (40,20) ,6: LINE - (40,30) : LINE 
(20,60):LINE - (30 , 50) : LINE -(20,40) 
(50,60) -(50,30) ,6: LINE -(70,20) :LINE 
{ 50 , 60 ) 
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(70,6O)-( 90,20):LINE -( 1 10,60) : LINE 



Presents. " 

-(30,40) :L1NE - (40,50) : LINE -C20, 

-C70,40):HNE - (60,45) : LINE -(60, 

-(90,40) :LINE -(70,60) 



6040 LINE 

6050L1NE (120,60)-(100,20>:LINE - ( 1 20 , 20) : LINE - ( 130 , 30) : L INE - ( 1 10 30) • LI NE -( 
120,50):LINE -( 140, 50) : LINE - ( 140 ,60) : L INE -(120,60) 

6060 LINE <150,60)-(130,20):LINE - < 150 , 20) : LINE -( 160 , 30> : LINE - ( 140 , 30) • L INE -( 
160,40):LINE - ( 165 , 45) : LINE -( 155,50) : LINE - ( 170 , 50) : LINE -( 170,60) :LINE -(150,6 

CURS0R20, 80: PRINT CHR*(17) ; " F IGHTER. " ; CHR* < 16 ) 

CURS0R20, 100: PRINT " (C) 1986. " 

PAINT (23,39) ,6: PAINT (5 1 , 39) : PAINT (91 ,25) : PAINT ( 1 1 1 ,21 ) : PAINT ( 132,21 ) 

CURS0R20,120:PRINT "Hi L any key! " 

IF INKEY*<>"" THEN RETURN 
GOTO 6110 



6070 
6080 
6090 
6100 
6110 
6120 
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DRAW!! • • • a program dissection 



This is the second of our drawing programs, and is the subject of the program dissection. 

The program allows you to move a shape about the screen by use of the cursor keys or joystick. Pretty simple. 

Okay, now to the dissection. 

Line 10 This tells the computer to use the Graphics Screen, i.e. the one used for drawing lines on. If you use SCREEN 
1. 1 you would tell the computer to use the text screen, you know, the one in green and black when you turn 
your computer on, CLS tells the computer to clear the screen, so that if anything is written on the screen, it just 
disappears. The instruction COLOR is a little more complex. This lets you alter the PAPER colour, the PEN colour, 
and the BORDER colour. The format of the instruction is PEN. PAPER, BORDER. So the command COLOR 
1.2.3 would set the pen colour to colour 1 , paper 2 and border to colour 3, When you write, you'll write in Black 
on a Green background and the border will change to light green. See pp 97-100 

Line 20 Make the computer print at location 80 dots across, and 90 dots down on the Graphics Screen, The message to 
print is "DRAW!!" The CHR$(17) makes the computer print out the text in Double Width, so DRAW . . 
becomes D RAW, 

Line 30 Is a small delay. The variable L counts from 1 to 500. 

Line 40 CHR$(16) is the opposite to CHR$(17) so any more text will be printed in single width and not double width. 

Line 50 a REM means REMark. it has no effect on the computer program at all. it is used to keep a note for the programmer 
or user of the program. 

Line 60 This clears the screen. 

Line 70 This changes the pen colour to colour 1, (Black) and the border to = '(dark red}, 

Line 80 This is a little complex. Firstly the computer jumps to line 310, It continues execution from there until it reaches 
a RETURN instruction. When the RETURN is executed, the computer jumps back to the command AFTER the 
GOSUB, In this case it is line 90. 

Line 90 Place the next lot of data on the screen at location X (places in) and Y (places down) the screen , The PRINT tells 
the computer to put a ")'' on the screen at position X and Y on the screen. You can put any character between 
the quotes. 

Line 100 The computer now reads the keyboard, whatever key is being pressed is put into the variable A$_ So if you are 
pressing "Z" then the variable A$ will hold the letter Z. 

Line 1 10 This is the same as saying "if the user is pressing the LEFT arrow then move the cursor left". Don't forget that 
the position of the cursor is determined by the variable X and Y. So if we alter one of these variables the position 
of the cursor will also alter. The left arrow is the same as CHR$(29) See page 19 of the handbook. 

Line 120 As above but move right. 

Line 130 As above but move cursor up. 

Line 140 As above but move cursor down. 

Line 1 50 Check the status of the joystick , This data is put into the variable PL By status 1 mean if the joystick has been moved 
or not. 

Line 160 This is the same as line 130. but the difference is that the cursor moves up if the joystick is being pushed up 

Line 170 As above but move right. 

Line 180 As above but move down. 

Line 190 As above but move left. 

Line 200 If the joystick fire button is being pressed then clear the Screen. See page 149 (Basic Level 111 Manual). 

Line 210 Back to A$. If you are pressing C then clear the screen. 

Line 220 If you are pressing "E" then end the program, 
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Line 230 If X is less then 0, (eg -1 etc) then you will get an error. This is because the cursor cannot be put on the screen 
at position -1, So this line checks for X being less than 0, if it is X is made equal to 0. Thus preventing an error 
occurring. 

Line 240 If the cursor is about to fall off the right hand side of the screen, then X is brought back so that it doesn't. 

Line 250 Same as 230. but make sure the cursor doesn't go off the top of the screen. 

Line 260 Same as 240 but make sure the cursor doesn't go off the bottom of the screen. 

Line 280 Go back to line 90. 

Line 290 Print a space. 

Line 300 Print another space. 

Line 310 Print " " on the screen. 

Line 330 Print 205 spaces then print "Use arrows ..." 

Line 350 Print "Use ..." etc on the screen. 

Line 360 A delay, T counts from 1 to 1500. 

Line 370 Set the screen ot the text screen and clear it. Set the colours of the text screen to white on magenta Note that 
the format for the COLOR statement is different for the two screens. 

Line 380 Clear the screen and return to the line after the GOSUB statement (line 90). 

If you wish to learn more about programming then 1 suggest that you get hold of a copy of "Teach Yourself BASIC Games 
Programming" as this will help you a lot. This is available from Sega Software Support, 

10 SCREEN 2,2: CLS: COLOR ,15,, 6 

20 CURSOR 80,90:PRINT CHR*(17);" DRAW !!" 

30 FOR L=l TO 500: NEXT 

40 PRINT CHR*(16> 

50 REM READ THIS PLEASE: YOU CAN CHANGE THE GRAPHIC CHARACTER OR PUT A LETTER INS 

TEAD OF A BRAPHIC CHARACTER TRY IT! ! 

60 CLS 

70 COLOR 1, , ,6 

80 GOSUB 310 

90 CURSORX,Y:PRINT">" 

100 A*=INKEY* 

llO IF A*=CHRt(29) THEN X=X-1 

120 IF A*=CHR*(28) THEN X=X+1 

130 IF A*=CHR*(30) THEN Y=Y-1 

140 IF A*^CHR*{31) THEN Y=^Y+1 

150 PL=STICK (1) 

160 IF PL=1 THEN Y=Y-1 

170 IF PL=3 THEN X=X+1 

180 IF PL=5 THEN Y=Y+1 

190 IF PL=7 THEN X=X-1 

200 IF PL=8 THEN CLS 

210 IF At="C" THEN CLS 

220 IF A*="E'- THEN CLS: PRINT"BYE . - BYE // BY ANDREW WATT// ": COLOR 1,2:END 

230 IFXCO THEN X=0 

240 IFX<0 THEN X=35 

250 IFY>35 THEN X=35 ■ 

260 IFY<0 THEN Y=0 

270 IFY>22 THEN Y-22 

280 GOTO 90 

290 PR IN I 

300 PRINT 

310 PRINT" INSTUCTIONS " 

320 PRINT" === = = ^ = = ^3.= 

330 PRINT SPC(205); "USE THE ARROW KEYS AND THE JOYSTICK TO DRAW PICTURES AND P 

RESS C TG CLEAR SCREEN" 

340 PRINT 

350 PRINT"USE E TO END PROGRAM." 

360 FOR T=l TO 1500:NEXT 

370 SCREEN 1 , 1 : CLS: C0L0R15, 13 

380 CLS: RE TURN 
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Turtle 



It ^ funny how so many people have written to me wanting a simple drawing package, just for designing small title screens, 
and the like. Well in this issue wc have included two! This one is a drawing package, that is quite simple, but very good, and 
tu make things even easier, the instructions are in the program. 

1 60SUB32 

2 ONST ICK ( 1 ) G0T06 ,7, 8, V, 10,11,12,13 

3 QN3rRIG(l)G0TD14.1^, 18 

4 IFINKEY*=" "THENGOSUB32 

5 Gar054 

6 Y=Y-1=GGT019 

7 Y^Y-IjX^X+UGQTGI*? 
a X=X+1:BQT019 

9 Y=Y+1: X=X+1:60T019 

10 Y=Y+1:G0TD19 

11 Y^Y+1: X=X-1: 607019 

12 X=^X-1:G0T019 

13 Y^Y-l: X=X-l:GaT019 

14 C^C+1: IFC=16THENC=l 

15 60T022 

16 HH=HH+1: IFHH=3THENHH=i 

17 60X028 

la PRESET(X,Y) :PAINT(X,Y) ,C 

19 607054 

20 PSET ( X , Y ) , C : G0T02 

21 PSET(X,Y) ,C:F0RI=1TD10: NEXT: PRESET <X,Y) : G0T02 

22 BLINE(70,0)-(130,10) ,,BF 

23 REST0RE25 

24 F0RA--=1TQC:READC*:NEXTA 

25 DATABlack, Green, Lt Green, Dk Blue.Lt Blue,Dk Red , Cyan , Red ,Lt Red, Dp Yellow, Lt 
Ye 11 ow , Dk Gr een , Magen t a , Grey , Wh i te 

26 C0LGRC:CURS0R70,1:PRINTC* 

27 G0r019 

28 IFHH=lTHENHH*-"Drawing":G0T030 

29 HH4^^ = " Erase" 

30 HI- I NE ( 70 , 1 1 ) - (130 , 20) , , BF : CURS0R70 ,11: COLORDC ; PRI NTHH* 

31 GO r G 1 9 

32 SCREEN1,1:CLS:PRINT- TURTLE GRAPHICS" : PRINT:PRINT 

ZZ F-KINI" Ihis program lets you draw you own pictures on the graphics screen u 
sing a SEGA joystick. 

34 PKlNlipRlNl" Move the 'Turtle' with the joystick in eight directions. The 1 
e+t button changes the color (printed on the " 

35 PRINT"screen. ) The right button changes you-from drawing to erase mode5 and b 
ack (also printed on the screen) while pushing both at once colours in the 

space you a.re in . " ; 

36 PRINl" (Watch with this i-fthere is a hole in the outline, the whole screen 
will be col oured in) " : PRINT 

37 PRINT" Press the <SPACE BAR!! to start again" : PRINT: PRINT 

38 PRINf " PRESS JOY STICK BUTTON TQ START" 

39 IFSTRIGd )=0THEN39 

40 CLS:PRINT:PRINT:PR1NT"BLACK OR WHITE BACKGROUND COLOUR?" 

41 IFINkEY*-""THEN41 

42 IFINKEY*="B"THENBC=^ 1 : DC=15: DC*= "Whi te" : G0T045 

43 IFINKEY*^"W"THENBC^15:DC=l:DC*="Black":GaT045 

44 G0T040 

45 SCREEN2, 2: CLS: COLORDC, BC, <0,0)-(255, 191) , BC: COLORDC , DC , (0 , 0) - (20, 191 ) ,DC 

46 LINE (255,21 )- (22.21) , DC; L INE- (22 , 191 ) 

47 COLORDC: CURS0R27,1: PRINT-COLOUR: "-.CURS0R27,li:PRINT"M0DE: " 

48 CURS0R70,l:PRINTDC*:CURS0R70,ll:PRINT"Drawing" 

49 C0L0R1,4, (150,O)-(255,2O) 

50 CURS0R155, 1 : PRINT "COPYRIGHT " 

51 CURS0R155, 1 1:PRINT" IAN NICHOLSON" 

52 C-DC:HH=-1;X--135: Y-100:PSET(X,Y) ,C 

53 SCREEN2, 2: RETURN 

54 IFX=23THENX=24 

55 IFX=256THENX-255 

56 IFY^2lfHENY=22 

57 IFY=192THENY=191 

58 IFHH^1THEN20 

59 G0T021 
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3D Maze by s. coupc 



At last a 3D maze program is available. The program sets you in a "Rat's Eye View" of a complex maze. The object is to 
find gold and treasure and to murder various nasties. In other words, good wholesome fun! 
To move about the maze, use the arrow cursor keys. 
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1 REM »»*»3D MAZE**** 

2 REM <C) S. COUPE 1984 

5 D1MA*(20> 

6 BOT08000 
10 SCREEN2,2:CLS 

COLDR1,10, (0,0)- (255, 191) ,4 

C0LQR1,15, (16, 16) -(108,112) ,4 

COLORl ,15, (140, 16) -(240,180) ,4 

LINE (15, 15) -(113,113) , 1 ,B: LINE ( 14, 14) - ( 114 , 1 14) , 1 ,B 

LINE<0,0)-(255,191) ,1 ,B 

LINE (135, IS) -(248, 181) ,1 , B: LINE ( 1 34 , 14 ) - (249 , 182) ,1,B 

LINE{16, 16) -(43,43) ,7: LINE ( 16, 1 12) - (43,85) , 1 :LINE( 1 12, 16) - (85,43) ,7:LINE(112, 
112)-<a5,85) , 1 

80 LINE (43, 43) -(85,85) , 1 ,B: LINE (43 ,43) - (85 , 43) , 7: PA INT ( 17, 16) ,7 

90 COLOR l,10:CURSOR20, 150: PRINT '"^PLEASE WAIT"-" : LINE ( IB, 148) - (98, 158) ,1,B:LINE(16 
,146)-(100,160) ,1,B 

100 F0RF=1T020:READA*(F) iNEXT 

101 D*=" NORTH" 

105 MAGI 

106 CURSOR 140, 20: PR I NT "LOOKING ";D*: CURS0R140,30:PRINT"TIME 00:00:00" 

107 Ll=3:EN=50 

110 PATTERNS#0 , "OSOF 1 F3F3F7F7F7F " 

1 20 PATTERNS* 1 , " E3F 1 F9FFFFFFFFFB " 

130 PATTERNS»2, "COF0F8FCFCFEFEFE" 

1 40 PATTERNS#3 , " C78F9FFFFFFFFFDF " 

150 PATTERNS#4,"E9E0C0E0E0F4F5FF" 

160 PATrERNS#5,"FFFFFFFFCECECE00" 

170 PATTERNS»6,"97070307072FAFFF" 

180 PATTERNS#7, "FFFFFFFF73737300" 

1 90 PATTERNSWS , " O0O70F0F 1 F 1 F 1 E3C " 

200 PATTERNS*9, '■3C38387C7C54O0O0" 

210 PATTERNS* 10," OOOOOOOOOOFFFFFF " 

220 PA TTERNS« 11," FFFFFFFFFFFFOOOO " 

230 PAT TERNS* 12," OOOOOOOOOOFFFFFF " 

240 PATTERNS*13, "FFFFFFFFFFFFOOOO" 

250 PATTERNS* 1 4, "00E0F0F0F8F8783C" ' - 

260 PAT TERNS* 1 5 , " 3C 1 C 1 C3E3E2A0O0O " 

270 PATTERNS* 16, "OOOOOE 17 130A250B" 

280 PATTERNS* 1 7, "0OA5O2O13FOO0OOO" 

290 PATTERNS*18, "0O00O0O0B0B080C0" 
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:''.O0 PATTERNS»19,"C0C0CO8O0OOO0OOO" 
310 PATTERNS<t2O,"0OO0lO2B6C745AF4" 
320 PATTERNS»21 , ■'FF5AFD7E000OOO00" 

325 PATTERNS«25 , "FFFFFFFFFFFFFFFF " 

326 PAT TERNS#28 , "OOO 1 O3O70F 1 F3F7F " 

327 PATTERNS«30,"FFFEFCF8F0E0C0S0" 

329 PATTERNSH34, "0OO1O3O70FIF3F7F" 

330 X=INT(RND(1)*18)+1:Y=INT<RND(1>*28)+1:IF MID* (A* ( X ) , Y , 1 ) <>" " THEN 330 

33 1 PAT TERNS#35 , "FEFCFBFOEOCOBOOO " 

332 PATTERNS«36, "OOOOOOOOOOOOOIOS" 

333 PATTERNS#37 , "0707000000000000" 

334 PATTERNS«t3a,"01061E3C78FOEOCO" 

335 PATTERNSW39, "8000000000000000" 

336 PATTERNS#40, "0000000000000060" 

337 PATTERNS#41 , "F0783.8 7FFFFBE000" 

338 PATTERNS»43, "0O0O0OOOBO80OO00" 
340 LINE( 16,1 12) -< 43,85) , 1 

400 CURS0R140, 50: PRINT" Jewels: " : CURS0R140,60:PRINT"Energy:50" : CURSaR140,70:PRINT 

"Swards; " 

410 CURSORl 40, 90: PRINT"Lives: 3": CURSOR 1 40,80: PRINT'-Nuggets: " 

490 TIME*="00:OO:O0" 

5O0 BLINE(lO,130>-(132,19O) ,,BF 

510 H«=niU*(A5(X> ,Y-1 , 1 J 

511 IFD*="SOUTH"THENF*=MID*(A*<X) ,Y+1,1) 

512 IFD*="EAST"THENF*=MID*<A*<X-1) ,Y,1) 

513 IFD»="WEST"THENF*=niD*(A*(X+l) ,Y,1) 

514 IFF*=" "THENIOOO 

515 IFF*="X"THEN1100 

520 BLINE<26,46)-(37,100) , O , BF 
530 LINE(16,112)-(43,B5) ,1 

540 F*=MID*<A*(X) ,Y+1 ,1) 

541 IFD*^"SOUTH"THENF*=MID*<At(X) ,Y-1,1) 

542 IFD*="EAST"THENF*:=MID*{A*(X + 1) ,Y,1) 

543 IFD*="WEST"THENF*=MIDt(A*(X-l) ,Y,1) 

544 IFFt=" "THEN1200 

545 IFF»="X"THEN1300 

550 BLINEdOl ,46)-(91,101) , ,BF 

560 LINE<H2,112>-(B5,e5> ,1 

570 F»=MID*(A$-(X-1) ,Y, 1) 

580 IFD*="SOUTH"THErMF*=MID*<A*<X+l) ,Y, 1) 

590 IFD* = "EAST"THENF*=MID* C A* ( X ) ,Y+1 , 1) 

600 IFD4="WEST"THENF*=MID*(A*(X) ,Y-1,1> 

610 IFF«=" ■'THEN1400 

620 IFF*="X"THEN1500 

630 BLINE(54,56)-(74,85) , ,BF 

640 LINE(54,B5)-(74,85) ,1 

650 IFMID*(A3^<X) ,Y, 1 ) =" V" THENG0SUB2000 

655 BEEP 

656 BLINE (168,30) -(230,40) , ,BF: CURSQR168 ,30: PRINTT IME*: T*=T IME* 
660 I*=INKEY* 

665 IFTIME*< .'T*THEN656 

670 IFI*=CHR»(28) THEN1600 

680 IFI*=CHR* (29) THEN1700 

690 I F I *=CHR* < 30 ) THEN 1 800 

695 GaTD660 

700 FaRA=15TQ0STEP-l : SOUND! ,310 , A: SOUND 1 , 360 , A: SOUND 1 ,410, A: NEXT 

705 F0RF-07D10:SPRITEF, (0,0) ,0,0: NEXT 

706 BHNE( 140,60) -(220,68) , , BF: CURSORl 40 , 60: EN=EN- 1 : PR INT"Energy : " ; EN 

707 IFEN<1THEN5000 
710 G0T0500 

1000 BLINE{26,101)-(36,92) 

1005 BLINE(29,69)-(31 ,68) 

I 010 LINE (26, 101 )- (26,46) ,1:LINE (36, 91) -(34,51 ), 1,BF 

1020 LINE(26,46)-<36,5i) ,1;LINE (26,47) -(36,52) , 1 

1030 LINE (26,85) - (36,85) , 1 

1040 G0T0540 

MOO BLINE (26,47) -(36,52) : LINE (26 , 46) - (36 ,51 ) ,1 

1101 BLINE (26,85) -(36,85) 

1102 LINE(16,112)-(43,B5) ,1 
1105 LINE (29,69) -(31 ,68) 

1110 LINE (26, 101) -(26, 46) , 1 : BL INE (36 , 9 1 ) - (34 , 5 1 ) , , BF : L INF • s , 91 ) - (36 , 51 ) , 1 



1120 GDT0540 
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1200 BLINE(101,100)-(91,91) 

1203 BLINE(97,69)-(94,68) 

1210 LINE (101, 101)-<101,46) ,1:LINE(91 ,90)- (93,51 > , 1 ,BF 

1220 LINE (101, 46) -<91 ,53 ) , 1 : L INE ( 101 , 47 ) - (9 1 , 54 > , 1 

1230 LINE(91,85>-(101 ,85) ,1 

1240 GDT0570 

BLINE(91,90)-(93,51> , , BF : BL INE ( 10 1 , 47) - (9 1 ,54 ) 

BLINE(91 ,85)- (101 ,85) :BLINE(101 , 46) - ( 101 , 101 ) 

LINE (101, 46) -(101, 101) ,1:LINE(91 ,90) -(91, 51) ,1 

LINE (97,69)- (94,68) ,1 

LINE(101,46>-(91,51) ,1 

LINE (112, 112) -185, 85) ,1 

G0TO57O' 

BLINE (57,66) -(59,66) 

LINE (54,56) -(74,85) ,1 ,B 

BLINE (54,85)- (74,85) 

GO (0650 

LINE (54,56) -(74,85) , 1,B 

LINE (57,66)- (59,66) ,1 

G0T0650 

F*=MID*(A*(X) ,Y+1,1) 

IFD*="SOUTH"THENFt=mDt(A*<X> ,Y-1,1) 

IFD*="EAST"THENF*=MID* (A* (X+1 ) ,Y, 1 > 
IF D*="WEST"THENF*=MID*(A*(X-1) ,Y,1) 

IFF*="v"THEIM 660 

IFD*="NQRTH"THENY=Y+l:D*="EAST":G0Tm680 

I FD*= "SOUTH" THENY- Y- 1 : D*= " WEST " : GOT O 1 680 

IFD*="EAST"THENX=X+1 : D*= "SOUTH" : GOTO 1680 

IFDt="WEST"THENX=X-l : D*="NORTH" 

BLINE(140,20>-(240,28) , ,BF: CURSQR140 , 20: PR INT "LOOKING 

60T0700 

F*=MID*(A:r(X) ,Y-1 ,1) 

IFD*="SOUTH"THENF*-MID*(A*(X) ,Y+1,1) 

IFD*= " EAST " THENF*=M I D* < A* ( X- 1 ) , Y , 1 ) 

IFD*="WEST"THENF*=MID* ( A* (X+1 > ,Y , 1) 

IFF*^ " V ■' THENG0T0660 

IFDt= " NORTH" THENY=Y-i:D»=" WEST "-.GOTO 1680 

IFD*="SOUTH" THENY=Y+1 : D*="EAST" : GOT016aO 

IFD*="EAST"THENX=X-1:D*="N0RTH": GOTO 1680 

I FD*= " WEST "THENX = X + 1:D*= "SOUTH": GOTO 1680 

G0T0700 

F*=MID*(A*(X-1> ,Y, 1) 

IFD*= "SOUTH ■■THENF*=M ID* (A* ( X + 1 > , Y , 1) 

IFD*="EAST"THENF*=MIDt (A*(X) ,Y+1,1) 

IFD*="WEST"THENF*=MID*<Ai:tX) ,Y-1 ,1) 

IFF*='VTHEN660 

IFD*= "NORTH "THENX=X-1 

IFD*= " SOUTH" THENX=X+1 

IFD*="EAST"THENY=Y+1 

I p 03^-^ "WEST " THENY- Y- 1 

G0T0700 

R=INT (RND( 1 >*50) • 

I FRND (IX. 2ANDT IME*>" 00: 04 : 59" THEN4000 

IFR=0THEN2200 

IFR=1THEN2400 

IFR : 10THEN2600 

IFR<20THEN2800 

IFR<40THEN2900 

SPRITEO, (62,90) , 16,6;SPRITE1 , (62,90) ,20,9 

TR=INT(RND(l)*50)+75 

GP=GP+TR:CURSOR20,150:PRINT"Yau have ■faund" :PRINTTR; " 

BLINE (140,50) -(240,58) , , BF 

CURSOR 1 40 , 50 1 PR I NT "Jewel s: " ; BP 

A*(X)=LEFT*(A*(X> ,Y-1)+" "+RI6HT* ( A* ( X) ,30-Y> 

RETURN 

CURS0R20, 150:PRINT"The room is empty." 

FQRF-l r0500:NEX r:GOTO 2110 

CURS0R20, 150:PRINT",Sorry, there is 
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1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

IBIO 

1 B20 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2095 

2100 

2110 

2120 

2200 

2210 

2400 

re- " 

2410 

2600 



";D* 



jewels. 



nothing he 



G0T02210 
CURS0R20,1' 



iO:PRINT"YDU have +ound a" s CURS0R50, 158: PRINT"swor 
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2605 SPRITEO, <62,92) , 36 ,7: SPRITEl , <62,92> ,40, 1 

2610 SW=SW+1:BLINE( 140,70) -(220,78) , ,BF: CURSOR140 ,70: PRINT"Swords: " ; SW 

2650 GOTO 21 10 

2800 SCREEN 1 , 1 : CLS 

2805 PRINT"Yqu have found ^ man who is sel 1 i ng swards, nuggets and energy pills 



2B06 
2810 

2815 

2820 

2835 
2840 
2845 

2850 

2860 

**#■»" 

2861 

2865 

2867 

2870 

2875 

2880 

2885 

2890 

2900 

29 1 

e box 

2920 

2930 

2940 

3000 

3001 

3005 

3( J 1 <:> 

3020 

3025 

3030 

3040 

3045 

3050 

3055 

3056 

3060 

3100 

3110 

3115 

3120 

3130 

3200 

3210 
3215 
3220 
3300 
3310 
3320 
4000 
4010 
4020 
4030 
4040 
4045 
4050 
4200 
4210 
50'!>0 
5010 
5020 
least 



PR I NT: PR INT ■■»**» YOU HAVE";GP; " JEWELS****" : PRINT 

PRINT"1...A ^wur d costs 100 jewels 2.. .A nugget costs 500 Jewels 

3... An energy pill casts 50 jewels" 
PRiNr:PRINT"DO VDU WANT TO BUY ANYTHING? (Y/N> " 
INPUTA*: IFA*<>"Y'*THENSCREEN2,2:GDT02940 

PR IN I "Input iiu.iiuer 1 to _> i-ar the i tem you want to buy. " 
INPUTWl: IFWl , lORWl ; 3THEN2B35 

IFWl-^lANDGP. 99THENSW=SW+1 : GP^ GP- 100: GOTQ2870 
IFW1=2ANDGF>499THENG1=G1+1:GP=GP-500:GOT02870 
IFW1-3ANDGP:^49THENEN^EN+20:GP=6P-50:G0T02870 
PRINT": am sorry to say you can't a-f-ford 1 1 . *******PRESS ANY KEY TO PLAY*** 

IFINKEY*<>""THEN2861 

IFINKEY*=" "THEN2865 

SCREEN2,2:GDTD2940 

SCREEN2,2:BLINE(14O,60)- (240,68) , ,BF: CURSOR 1 40 ,60: PRINT" Energy: " ; EN 

BLINE(140,70)-(240,7B) , , BF: CURSORl 40 , 70: PR INT"Swords: " ; SW 

BLINE (140,80) -(240,88) , ,BF: CURSORl 40, 80: PRINT "Nuggets: ";G1 

BLINEC140,50)-(240,5e) , ,BF: CURSQRl 40 ,50: PRINT "Jewel s: " ; GP 

GOT02940 

SPRITEO, (62,92) ,24 ,5: SPRITEl , (62,92) ,28 , 7: SPRITE2 , (62,92) ,32,4 

CURSQR20, 150:CaL0Rl :PRINT"Are you going to open th 



IF I NKEY*= " Y " THEN3000 

I F INKEY*< > " N" THEN2920 

BEEP: BLINE (20, 150) - ( 1 30 , 1 70 ) , ,BF:GaT02llO 

R=INT(RND(1>*5)+1 

At (X) -LEFT* (A* (X) ,Y-1)+" "+RIGHT* ( A* ( X > ,30-Y) 

BLINE (20, 150) -(130,170) , , BF 

aNRG0T03020 , 3 100 , 3200 , 3300 

FORF=0TO3:SPRITEF, (0,0) ,0,0:NEXT 

0UT127,228:F0RF=240TQ255:0UT127,F:F0RU=0T015:NEXT:NEXT 

CURSDR40,150:PRINT"It exploded !": CURS0R20, 160: PRINT" You loose a li-fe." 

Ll^Ll-1 

F0RU^1T04 

F0RF=1000T0120STEP-30:SDUND1 , F ,8: NEXT: NEXT 

BLINE(140,90)-(220,98) , ,BF: CURS0R140 , 90: PRINT"LI VES: ";L1 

IFL1=OTHEN5000 

60 ! 02940 

CURS0R20, 150: PRINT" You have found a" : CURS0R20, 158: PRINT" gold nugget." 

61-Gl+l 

BLINE(140,80)-(240,88) , , BF: CURSORl 40 , 80: PRINT" Nuggets: ";G1 

F0RF-0T0500:NEXT " 

G0T02940 

CURS0R20, 150:PRINT"You have found some " : CURS0R20, 158: PRINT"energy choclate 

EN=EN+10 

BLINE (140,60) -(240,68) , , BF : CURSORl 40 ,60: PRINT"Energy :"; EN 
FORF^OT0500:NEXT:60T02940 
CURSDR20,150:PRINT"It 's empty" 
F DRF-OTO 100: BEEP 1: BEEPO:NEXT 
G0TQ2940 

SPRITEO, (55,74) ,0 , 8: SPRITEl , (55,90) ,4,8 
SPRITE2, (47,84) ,S, i2:SPRITE3, (63 , 84 ) , 1 2 , 12 
FORF=lT07O:S0UNDl ,2000 , 15: SQUNDO: NEXT 

IFSUi ;3rHEN42u0 ^ 

CURSDR20, 150:PRINT"You killed him" 

SW=BW-3:BLINE( 1 40 , 70 ) - ( 240 , 78 ) , , BF : CURSORl 40,70: PRINT "Swords: '•;SW 
F0RF=1T0500: NEXT: GOTQ2940 
CURS0R20, 150:PRINT"He tilled you!" 
FDRF=0T05OO: NEXT 
SCREENl, 1;CLS 

SC=SC+(SW*10) +BP+ (G1*100)+(EN*5) 

PRINT "Tough 1 uck , yuu riave 1 oi^t all of your 1 1 ves. Better luck ne;^ t t i me. At 
you managed to score" ;SC 
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5025 FORF-2O00Ta50OSTEP-5O:SOUNDl,F, 15: SOUND 1 ,F-100, 15: SOUNDl ,F-200, 15: SOUNDl ,F 
300,15:NEXT 

5026 SDUNDO 

5030 PRINT: PRINT: PRINT"F'RESS RUN TO PLAY AGAIN." 

5040 END 

BOOO SCREEN2,2:CLS:CaL0R15,l , (0,0) - <255, 191 ) ,S 

8005 Xl=50:Yi^40 

8010 F0RF=IT034:READX,Y:LINE(X1 ,Y1>-(X,V) , 15: X 1 =X : Y 1=Y: NEXT 

8020 LINE (93,47) -(95,53) , 15: LINE <95, 53) - (9 1 , 53) , 15: L INE (91 ,53) - (93, 47) , 15 

S030 LINE (118,55) -(118,59) , 1 5: LINE ( 1 18 ,59) - ( 1 1 4 ,59) , 15: LINE ( 1 14 , 59) - ( 118,55) , 15 

8040 CURpOR90,180:PRINT"By S. Coupe 1 984- : L INE (40 , 30) - (1 49 ,80) , 10 , B 

8050 LINEC3B,28)-(151,90) ,10,B:CURSOR70,81:COLaR 8:PRINT"IN 3D" 

8055 C0LOR12:CURSOR4O,100:PRINTCHR*(17) ; '"^PRESS ANY KEY^" ; CHR* ( 16) 

8060 REST0RE9040 

8070 FORF= 1T051 :READM: SOUND 1,M, 15: SDUND2,M+ 1,11 

8080 F0RU=1T030: IF INKEY*<>" "THEN8100 

8090 NEXT: NEXT 

8095 SOUNDl,M,ll:SOUNDO:BOTOa060 

8100 SOUND2,M,0 

8105 F0RF-15T00STEP-.5 

8110 SOUNDl, M,F:NEXT 

8120 RESTOREIOOOO 

8130 GOTDIO 

90OO DATA 59 , 40 , 64 , 50 , 69 , 50 , 74 , 40 , S3 , 40 , 83 , 49 , 89 , 40 , 98 , 40 , 1 06 , 56 

9010 DATA 114,49,104,49,104,40,139,40,139,47,128,47,128,51,133,51 

9020 DATA 1 33 , 58 , 1 28 , 58 , 1 28 , 62 , 1 39 , 62 , 1 39 , 69 , 1 03 , 69 , 98 , 59 , 89 , 59 , 84 , 69 

9030 DATA 74,69,74,60,69,69,64,69,59,60,59,69,50,69,50,40 

9040 DATA 220,262,294,330,330,330,220,262,294,330,330,330 

9050 DATA 220 , 262 , 294 , 330 , 330 , 262 , 262 , 220 , 220 , 262 , 262 , 247 , 247 , 247 

9060 DATA 262,262,247,220,220,220,262,330,330,294,294,294 

9070 DATA 262 , 294 , 330 , 330 , 262 , 262 , 220 , 220 , 247 , 247 ,220 , 220 , 220 

lOOOO DATA vvvvvvvvvvvvvvvvvwvwvvvvvvvv, vX X vX v X v X vvv Xv 



X V V X 



V vv 
Xv vv 

lOOlO DATA V 
X Xv X 

Xv 
10020 DATA V X 
V ■ V X v V X 
10030 DATA vv X 

X vX X v 
10040 DATA vv 



X V X 
Xv X 



X 

V , V 



X X XX 

XXX X 
vX V vXv 



V X XX v,vX v Xv Xv V 

Xvv, vvXvvXvvX vv Xv v X v Xv 
Xv X V Xv XX vv,vX vX X X 



Xv,v Xv V 
vXv V V Xv 

Xv,vX V 
X 



Xv X V Xv V vXvwv vXv,v v 
Xv vv,vvv V Xv X vv V 

V X vv v V V X 

X X vv,v X^ vX vXX 
X v XX vX V vv 



Xv V X V Xv V V v,v X 

vvv 
Xv,vX Xv V Xv v v,v vv 

V Xvv Xv 
X V , vvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 



PIANO PROGRAM 



by T. Cole, Rotorua 



10 SCREEN 2,2:COLORl3 15, , 15:CLS 

20 PRINT CHR*C16] 

30 COLORl, 10, C0,0]-C255, lan, 10 

40 COLORl ,2, C130,8]-C255,60:), 10 

50 COLOR 1,6, CI 30, 1 683- C 255, ISU, 10 

60 LINE C123, 158D-C255, 1313, 1,B 

70 LINE C143,80D-C247, 152], 1,B 

80 LINE C123,8J-C255,603, 1 ,B 

90 COLOR 1, 15, C148,80]-C240, 1523, 10 

100 LINE C8,8D-C120, 1763, 1,B 

110 CQLORl , 15, C8,8]-C1 15, 176], 10 

120 CURSOR 155, 170:PRINT " Presented 

y" 

130 CURSOR 134, 180:PRINT "TERRY COLE 

RDTORUR" 

140 LINE C 163, 100]-C 171, 140],5,B 

150 LINE C153,30]-C181, 100],5,B 

160 LINE C188,30]-C136, 130],5,B 



170 LINE C 188, 1303-C206, 140],5,B 
180 LINE (213, 303-C221, 1403,5, B 
130 LINE C221,30]-C231, 100],5,B 
200 LINE C221, 1303-C231 , 140],5,B 
210 PFiINT C165, 101 ],5 
220 Pi=1INTC155,31],5 
230 PAINTC130,31 ],5 
240 PRINTC130, 131 3,5 
250 PeiNT C223, 323,5 
260 PflINTC217,3n,5 
270 PftINTC223, 1313,5 
280 CIRCLEC80, 1503,35,5, .4, .73, . 
230 LINE C80, 103-C15, 1503, 10 
300 LINE C80, 103-C13, 1503, 10 
310 LINE C80, 103- CI 7, 150 3, 10 
320 LINE C80, 103-C16, 1503, 10 
330 LINE C80, 103-C18, 150], 10 
340 LINE C15, 1503-C19, 1503, 10 
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350 CIRCLE C30, 1303,4,5, ,, ,BF 

360 C:RCLECM,40],70, 9, 1 . 3, . 95, . 19 

370 LINE Ce5, 1453-C33, 145], 1 

380 LINE C65, 145]-C73, 135], 1 

390 LINE C70,135D-C75, 131], 1 

400 LINE C75, 131]-C73, 129], 1 

410 LINE C79, 129]-C85, 135], 1 

420 LINE C85, 135D-C33, 145], 1 

430 PAINTCSe, 139], 1 

440 CIRCLEC80, 1 50] , 29, 5, . 3, . 85 , . 65 

450 CIRCLEC80, 149] , 22, 5, . 2, . 80, . 70 

460 CIRCLEC26,25], 10, 11, , , ,BF 

470 LINE C8,8]-n20, 176], 1,B 

480 PSET C80, 150], 6 

490 PSET [81, 149], 6 

500 PSET C81, 150], 6 

510 PSET C82, 150], 6 

520 CURSOR 130,20:COLOR1 ;PRINT CHR4CI7 

] ; '■■ P I 1^ N " 

530 CURSOR 142,35:PRINT "TUNE" 

540 PRINT CHR$C16] 

550 RESTORE 590 

560 FOR J=l TO 54:RE[^D F :S0UND1 , F, ] 4 :S 

0UND2,F+2, 14:SGUND3,F*2, 14:F0R DE=1 TO 

30 .-NEXT DE,J 
570 READ D 

580 IF 0=0 THEN SOUND 

530 DRTA 330,294,262,330,294,262,392,3 
43, 330, 392, 349, 330, 262 , 330, 262, 330, 262 
, 392,262, 332 

600 DATFt 392,262,392,262,330,262,330,2 

62,330,523,494,4 40,523,494,440 

610 Di^TA 659,587,659,523,587,494,523,4 

40,434,392,440,349,332,330,343,294,330 

, 262, 262,0 

620 CURSOR 8,180:PRINT "Press a key t 

begin" 

630 IF lNKEr$="" THEN 630 

640 REn Plf^iNO 

650 CLS 



750 PRINT :PRINT 
k e [ike a. 



Press keys to ma 
'PIANO' 



660 PRINT 

670 PRINT 

680 PRINT 

690 PRINT 

700 PRINT 

710 PRINT 
II 

720 PRINT 
730 PRINT 

740 PRINT 



4 5 



7 8 9 



•NOTE' AMENDMENT AT END OF USTING. 



760 


a- 










770 


A$= 


=INKET$ 






780 


SDUND0 








790 


IF 


m=' 


Q" 


THEN 


1000 


800 


IF 


A*=' 


2'- 


THEN 


1030 


810 


IF 


A$--:' 


U" 


THEN 


1060 


820 


JF 


R$=' 


E" 


THEN 


1030 


830 


IF 


R$-' 


4" 


THEN 


1120 


840 


IF 


Fi$=' 


R" 


THEN 


1150 


850 


IF 


A$=' 


5" 


THEN 


1180 


860 


IF 


A*-' 


T" 


THEN 


1210 


870 


IF 


A*=' 


T" 


THEN 


1240 


880 


IF 


R$=' 


?•■ 


THEN 


1,270 


830 


IF 


A$=' 


U"' 


THEN 


1300 


900 


IF 


A*=' 


8" 


THEN 


1330 


910 


IF 


A$=' 


I" 


THEN 


1360 


920 


IF 


fl$=' 


9" 


THEN 


1330 


930 


IF 


A$=' 


0" 


THEN 


1420 


940 


IF 


A$=' 


P" 


THEN 


1450 


950 


IF 


R$-' 


-" 


THEN 


1480 


360 


IF 


A$=' 


@" 


THEN 


1510 


970 


IF 


R$ = ' 


v^ 1 ' 


THEN 


1540 


380 


IF 


A$=' 


['■ 


THEN 


1570 



QUERTruiOP@[ 



-C-" 



330 GOTO 770 

1000 SOUND fl,220, 15:S0UND 2,220+10,8 

1010 IF INKET$<>-" THEN 1000 

1020 GOTO 770 

1030 SOUND A,233, 15:SOUND2,233t]0,8 

1040 IF INKET$<>"" THEN 1030 

1050 GOTO 770 

1060 SOUND A, 247, 15:SOUND2,247+10,8 

1070 IF INKET$<>'' THEN 1060 

1080 GOTO 770 

1090 SOUND A, 262, 15:S0UND2, 262+10,8 

1100 IF INKETSO"'- THEN 1090 

1 1 10 GOTO 770 

1120 SOUND A,277, 15:SOUND2,277+10,8 

1130 IF INKEr$<>"" THEN 1120 

1 140 GOTO 770 

1150 SOUND A, 294, 15:S0UND2, 234+10,8 

1160 IF INKET$<>"" THEN 1150 

1 170 GOTO 770 

1180 SOUND A,31 1 , 15:S0UND2,31 1+10,8 

1190 IF INKEY$<>"" THEN 1180 

1200 GOTO 770 

1210 SOUND A, 330, 15 :SDUND2, 330+ 1 0, 8 

1220 IF INKET$<>-" THEN 1210 

1230 GOTO 770 

1240 SOUND A, 349, 15:S0UND2, 349+10,8 

1250 IF INKET$<>"" THEN 1240 

1260 GOTO 770 

1270 SOUND A, 370, 15:S0UND2, 370+10,8 

1280 IF IHKEY$<>"" THEN 1270 
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1290 GOTO 770 

1300 SOUND A, 332, 15 :S0UND2, 332+ 10, 8 

1310 IF INKET$<>'^" THEN 1300 

1320 GOTO 770 

1330 SOUND A,415, 15:SOUND2,415+10,8 

1340 IF INKET$<>"" THEN 1330 

1350 GOTO 770 

1360 SOUND n, 440, 15:S0UND2, 440+10,8 

1370 IF lNKEr$<>"" THEN 13G0 

1380 GOTO 770 

1330 SOUND 1^,466, 15:S0UND2, 466+10, 8 

1400 IF INKET$<>"" THEN 1390 

1410 GOTO 770 

1420 SOUND A,494, 15:SOUND2,494+10,8 

1430 IF INKEr$<>"" THEN 1420 

1440 GOTO 770 

1450 SOUND A, 523, 15 :S0UND2, 523+10,8 

1460 IF INKET$<>'" THEN 1450 

1470 GOTO 770 

1480 SOUND A, 554, 15:S0UND2, 554+10,8 

1490 IF INKEr*<>"" THEN 1480 

1500 GOTO 770 

1510 SOUND 1^,587, 15:S0UN2, 587+10, 8 

1520 IF INKEr$<>-" THEN 1510 

1530 GOTO 770 

1540 SOUND ft,622, 15:SOUND2,622+10,8 

1550 IF INKET$<>"" THEN 1540 

1560 GOTO 770 

1570 SOUND A, 659, 15 :S0UND2, 659+10,8 

1580 IF INKET$<>"" THEN 1570 

1590 GOTO 770 



660 PRINT 

670 PRINT 
It 

680 PRINT 

690 PRINT 

700 PRINT 

710 PRINT 
1 1 

720 PRINT 
730 PRINT 



4 5 7 8 3 



U U U U U U U U 



U UU UUU UU 



U'JUUvJiJiJkJ^L'UiJ 



•■JKJ'^'^'^'J'^\J-0<J^KJ 



KfK><J^Kf'J<J'^K)\JKJKJ 



QUERTTUIOPSC 



732 REn Lines 670-710 are u,th the GRP\ 
PH Uey to gi^e the pia.no keys. 



LOCAL SEGA USERS CONTACTS 



AUCKLAND CENTRAL SEGA USERS CLUB 

(sec next issue) 



NAPIER SEGA USERS CLUB 

Sec E P. Lins 
41 Higgins Street 
NAPIER 



SOUTH COROMANDEL USERS CLUB 

P O Box 183 

WHANGAMATA 

Contact: Sid 

Ph 58-775 Whangamaia 



B.O.P SEGA USERS CLUB 

Sega 102B Hinewa Road 

TAURANGA 

Sec P.J.. McDonald 

Ph 64826 a/h 

Taurintja 



PUKEKOHE SEGA USERS CLUB 

C/o 4 Roose Avenue 
Pukekohe 
Contact: Selwyn 
Ph. Pukekohe 86-583 



SOUTH TARANAKI MICROCOMPUTER 

SOCIETY 

DM Beale 

7A Clive Street 
HAWERA 



CHRISTCHURCH USERS CLUB 

Contact Graham Rudman 
29 Primrose Street 
CHRISTCHURCH 5 



GISBORNE AREA USERS CLUB 

Trevor Gardiner 
Ph. B3 068 HM 
or 87-175 WK 



HAMILTON SEGA USER'S CLUB 

P.O Box 154S Hamilton 

President Mr Colin Bell 73-826 
Secretary: Mrs Anne Thrush Ph 437-312 
Meetings held fortnightly on Monday at Waikato 
Technical Institute in Room F129. 



ROTORUA SEGA USERS CLUB 

Contact. Terry Cole 
Ph, 59-325 ah. 



TOKOROA SEGA USERS GROUP 

C/o 1 Pio Pio Place 

TOKOROA 

Contact GeoH Phone Number 67-105 

Tokoroa 



SOUTH CANTERBURY USERS CLUB 

P.O. Box 73 Timaru New Zealand 
President: Geoff McCayghan 
Secretary : Uoyd Van Der Krogt 
Contact Phs: 60-756. 61-412 TIMARU 



WELLINGTON USERS CLUB 

Contact Shaun Parsons 

PO Box 1871 

Postal Central 

Wellington 

Ph 897-095 a/h 

Ph 727-666 work 



The above are contact names and addresses for 
Sega Users Clubs. If you wish to have your club 
advertised write to Sega Users Club P O : 
10 207. Auckland, 4 

if you have set up a local area user's club ai;a yuo 
would like us to publish the details concerning 
your club please send them to us and we will 
publish the information for no chare 
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The Fuel for thousands of Sega Users up and down the country 
No serious Sega owner should be without 



The complete range of the official Sega User Club magazines. 

Are you missing any? 




